Excel VBA VLookup на таблицах второй столбец

Question

Просто пытаясь узнать, можно ли использовать VLookup во втором столбце таблицы? Я искал бесконечно и не мог найти ответа на это, но я чувствую, что это должно быть возможно.

В этот момент я добавлю, что VBA не является моей сильной стороной. Я исхожу из фона PHP/MySQL, но не имею возможности использовать ни на моей работе, поэтому я прибегаю к обучению VBA.

Мой код до сих пор (упрощенно):

Dim userEnviron As String 
Dim rowId As Integer 

rowId = 0 
userEnviron = Environ("Username") 

Dim tbladmin As ListObject 
Set tbladmin = Sheets("Office Details").ListObjects("officeAdmin") 

On Error Resume Next 
rowId = Application.VLookup(userEnviron , Range(tbladmin), 4, False) 

Этот код смотрит на переменную окружения пользователя и ищет совпадения в таблице tbldadmin. Стол выполнен как так с заголовками:

Name UserID Email RowID Tom Smith Tom the@the.com 2

Im пытаясь для поиска идента и вернуть имя, однако в данный момент у меня есть код набора для поиска имени и вернуть RowId (я добавил второй фрагмент кода, чтобы взять RowID и вернуть имя)

Я вижу много примеров, отличных от VBA, где это делается, однако ни один из них не использует таблицы.

Можно ли использовать VLookup, как описано, для поиска соответствия во втором столбце и возврата значения из первого столбца? Черт, я вернусь из последнего столбца, если только могу найти второй столбец.

Answer 1

Если вы хотите VLOOKUP но ваши данные не в крайней левой колонке вы можете использовать INDEX/MATCH, который позволяет определить, где данные, которые вы отрываясь это, а также данные, которые нужно вернуть. Попробуйте это:

rowId = WorksheetFunction.INDEX(Range("officeAdmin[RowID]"), WorksheetFunction.MATCH(userEnviron, Range("officeAdmin[UserID]"), 0)) 

Вы можете изменить Range("officeAdmin[RowID]") для любого колонка вы хотите для поиска, например Range("officeAdmin[Name]") вернет Name вместо RowID.

Answer 2

Вы можете непосредственно Offset диапазон, в котором вы хотите искать:

Dim userEnviron As String 
Dim rowId As Integer 

rowId = 0 
userEnviron = Environ("Username") 

Dim tbladmin As ListObject 
Set tbladmin = Sheets("Office Details").ListObjects("officeAdmin") 

On Error Resume Next 
rowId = Application.VLookup(userEnviron, tbladmin.Range.Offset(0, 1), 3, False)