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

活动单元格查找行中的最后一列vba

1 个答案: