активная ячейка найти последний столбец в строке VBA

Question

У меня есть этот код, который находит определенную ячейку, а затем делает активную ячейку справа от этого.

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

Надеюсь, это имеет смысл, и я ценю любую помощь.

Спасибо.

Cells.Find(What:="Apples and Banana", After:=ActiveCell, LookIn:= _
    xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
    xlNext, MatchCase:=False, SearchFormat:=False).Activate
    ActiveCell.Offset(0, 1).Select

Answer 1

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

Option Explicit

    Sub test()

    Dim LastCol As Long
    Dim ABRow As Long
    Dim ABrange As Range

      Set ABrange = Cells.Find(What:="Apples and Banana", After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False)

    If Not ABrange Is Nothing Then
        ABRow = ABrange.Row
    End If

    LastCol = Cells(ABRow, Columns.Count).End(xlToLeft).Column

    Cells(ABRow, LastCol).Activate

End Sub