Опять vlookup

[Belokuraya]

Подскажите, можно ли, чтобы функция Vlookup искала заданное значение, но при этом выдавала содержимое ячейки из предыдущей строки?

[SAS888]

А почему именно Vlookup?
Пусть, например, в диапазоне "A1:A20" требуется найти значение "abcd" и взять значение из столбца "B" на одну строку выше найденного. Можно так:

=ДВССЫЛ("B" & ПОИСКПОЗ("abcd";A1:A20)-1)

В англ. версии:

=INDIRECT("B" & MATCH("abcd";A1:A20)-1)

P.S. Не претендую на красивое решение. Но все-таки... решение.

[Belokuraya]

хм, спасибо, интересное решение, красота тут не важна=)

[Belokuraya]

О, нет, Ваше решение не помогло((( пробовала index вместо indirect, но везде выдаёт ошибку...(

[SAS888]

Давайте конкретный пример!

[Belokuraya]

Допустим по заданному значению "FA019922.06" (А9) найти значение из столбца "Н", но не в строке 9, а в строке 8 (т.е.1110.00)

[Belokuraya]

Значение ищется в отдельной книге.

[The_Prist]

Странно, что INDEX ошибку выдает. Так пробовали?

=INDEX($A$1:$D$10,MATCH(I1,$D$1:$D$10,0)-1,3)
=ИНДЕКС($A$1:$D$10;ПОИСКПОЗ(I1;$D$1:$D$10;0)-1;3)

[Belokuraya]

нет, ошибка.

В закромах интеренета нашла иной вариант функции vlookup:

Function VLOOKUP2(Table As Range, SearchColumnNum As Integer, SearchValue As Variant, _
N As Integer, ResultColumnNum As Integer)
Dim i As Integer
Dim iCount As Integer

For i = 1 To Table.Rows.Count
If Table.Cells(i, SearchColumnNum) = SearchValue Then
iCount = iCount + 1
End If
If iCount = N Then
VLOOKUP2 = Table.Cells(i - 2, ResultColumnNum)
Exit For
End If
Next i
End Function

Но с ней возникает проблема, если книга, из которой брались данные закрыта, то все значения, посчитанные с помощью этой функции выдают ошибку(((

[Sh_Alex]

Можно без ВПР().
С уважением, Александр.