excel VBAselect多个单元格

美好的一天，

我正在寻找帮助来找出我的问题。 我想在列A中find一个包含文字“Grand Total”的单元格。 查找是关键字，因为它有时可能input到A14，A12或A20中。 当find文本时，我想select该单元格，并select列B中的下一个单元格。假设文本在A14中find，然后selectA14和B14。

就这样，我想继续编辑font = bold，填充颜色和字体颜色的格式（我将尽快解决）。

我似乎无法find一个代码，将帮助我，所以我感谢任何帮助。 下面是我find的代码，但它似乎不适合我。 从此链接获得此代码的积分： 如何使用VBA中的两个variablesselect一系列行

Dim Consultant1 As Integer, Consultant2 As Integer Dim ConsultantRange As Range Dim rngFind As Range Set rngFind = Columns("A:A").Find(What:="Grand Total", After:=Range("A1"), LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext) If Not rngFind Is Nothing Then Consultant1 = rngFind.row + 1 End If Set rngFind = Columns("A:A").Find(What:="Grand Total", After:=Range("A1"), LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext) If Not rngFind Is Nothing Then Consultant2 = rngFind.row - 1 End If If Consultant1 > 0 And Consultant2 > 0 Then Set ConsultantRange = Range(Cells(Consultant1, 2), Cells(Consultant2, 2)) With ConsultantRange.Selection.Font.Bold = True End With End If 

Answer 1

怎么样：

 Sub qwerty() Dim rngFind As Range Set rngFind = Range("A:A").Find(What:="Grand Total", After:=Range("A1")) rngFind.Resize(1, 2).Select End Sub