Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/28.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
excel VBA选择多个单元格_Vba_Excel - Fatal编程技术网

excel VBA选择多个单元格

excel VBA选择多个单元格,vba,excel,Vba,Excel,你好 我正在寻找帮助来解决我的问题。我想在a列中找到一个包含文本“总计”的单元格。Find是关键字,因为它有时可能输入A14、A12或A20中。找到文本后,我想选择该单元格,然后选择B列中的下一个单元格。假设文本在A14中找到,然后选择A14和B14 通过这种方式,我想继续编辑字体=粗体、填充颜色和字体颜色的格式(我很快就会弄清楚) 我似乎找不到一个能帮助我的代码,所以我感谢任何帮助。下面是我找到的一个代码,但它似乎不适合我。此链接中此代码的积分: 那么: Sub qwerty() Di

你好

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

通过这种方式,我想继续编辑字体=粗体、填充颜色和字体颜色的格式(我很快就会弄清楚)

我似乎找不到一个能帮助我的代码,所以我感谢任何帮助。下面是我找到的一个代码,但它似乎不适合我。此链接中此代码的积分:

那么:

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

哦,我的“调整大小”是我特别想要的代码。这太棒了!谢谢加里的学生!
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