Попытка выбрать ячейку с переменной в качестве номера столбца

Question

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

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

Dim numCol As String

Cells.Find(what:="e", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= 
_
    False, SearchFormat:=False).Activate

numCol = ActiveCell.Column

Range(numCol & "4").Select

Получение 1004-й ошибки «диапазон методов объекта глобальный сбой» из последней строки кода.

Answer 1

Вот некоторый модифицированный код из вашего запроса, который может быть полезен. Вы хотите попробовать использовать свойства диапазона . В приведенном ниже примере я определил диапазон, который является найденной ячейкой fcell. Несколько примеров того, что вы можете сделать здесь.

Dim numCol As Long
Dim fcell As Range

'this will find the cell and set it as a variable of fcell
Set fcell = Cells.Find(what:="e", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

'you can select it
fcell.Select

'you can select the whole column
fcell.EntireColumn.Select

 'you can select the column number (if one column)
 numCol = fcell.Column

'you can return the address
MsgBox "the address is " & fcell.Address

Удачи.