excel VBA选择多个单元格

Question

早安，

我正在寻求帮助以解决我的问题。我想在 A 列中找到一个包含文本“总计”的单元格。 Find 是关键字，因为有时可能会在 A14、A12 或 A20 中输入它。找到文本后，我想选择该单元格，然后选择 B 列中的下一个单元格。假设在 A14 中找到文本，然后选择 A14 和 B14。

这样，我想继续并编辑格式为font =粗体，填充颜色和字体颜色（我很快就会弄清楚）。

我似乎找不到对我有帮助的代码，所以我很感激任何帮助。下面是我找到的代码，但它似乎对我不起作用。来自此链接的此代码的学分：How to select a range of rows using two variables in 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