Excel VBA選擇多個單元格

Question

美好的一天，

我正在尋找解決我的問題的幫助。 我想在A列中找到一個包含文本“總計”的單元格。 查找是關鍵字，因為有時可能會在A14，A12或A20中輸入它。 找到文本后，我想選擇該單元格，然后選擇B列中的下一個單元格。假設在A14中找到了文本，然后選擇A14和B14。

這樣，我想繼續並將格式編輯為font = bold，fill color和font color（我很快就會知道）。

我似乎找不到能幫助我的代碼，因此，我感謝任何幫助。 以下是我找到的代碼，但似乎對我不起作用。 此鏈接的代碼來源： 如何在VBA中使用兩個變量選擇行范圍

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