Excel VBA Возвращает найденную строку

Прямо сейчас у меня это:

Range("B20:B60000").Select Selection.Find(What:=currentPerson, After:=ActiveCell, LookIn:= _ xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ xlNext, MatchCase:=False, SearchFormat:=False).Activate 

Которая выбирает определенный диапазон ячеек и находит для currentPerson (переменная, содержащая имя человека). Как мне сделать так, чтобы теперь я мог использовать свою ячейку в качестве ссылки и получить над ним строку?

Вы можете использовать следующий код:

 Dim res As Range Set res = Range("B20:B60000").Find(What:=currentPerson, LookIn:= _ xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ xlNext, MatchCase:=False, SearchFormat:=False) If Not res Is Nothing Then MsgBox "Address: " & res.Address MsgBox "Row: " & res.Row MsgBox "Cell above: " & Cells(res.Row - 1, res.Column).Address MsgBox "Entire row above: " & Cells(res.Row - 1, res.Column).EntireRow.Address Else MsgBox "Nothing found" End If 
Interesting Posts

Ошибка времени выполнения 1004: метод Смещение диапазона объектов сбой в цикле в VBA

Копирование строк из одного листа Excel в другой на основе значения ячейки

Как сохранить адрес ячейки переменной VBA

Получить таблицу веб-страниц с гиперссылками и таблицами с VB в Excel

Расчет сводного стиля на нескольких столбцах

запустить макрос из закрытой книги и сохранить

Визуальный базовый выброс ошибки «Формат инициализации» при подключении к БД

Есть ли способ обновить Excel с помощью данных PowerQuery программно, а затем сохранить его, например, как файл csv?

Как VBA нажать кнопку на панели инструментов addin … CommandBars?

VBA меняет активную книгу

OpenXML – созданный стиль рабочего листа влияет на другие существующие

Использовать метод поиска диапазона в определенном столбце

Как добавить параметр variable.value в качестве параметра range ()?

Что означает «Microsoft Office Excel ожидает, что другое приложение завершит действие OLE»?

Почему единицы Range.ColumnWidth не соответствуют ни точкам, ни сантиметрам (используется единица измерения по умолчанию)

Давайте будем гением компьютера.