ExcelVBA | 005-1 查找特定单元格Find方法（上）

就这一节课我就学了好多天，虽说是抽时间学习的，但消化新知识确实是需要动动脑子啊。

技巧

1. 在代码区域选中代码，按F1可调出代码的相关帮助 演示
2. 参数可以直接写，也可以用参数后冒号+等号表示更直观 

代码效果

VBA代码

Sub 查找上色()
    With Sheet6.cells 'cells表示全表操作
        s = InputBox("请输入编号", , "20211006") '输入框,含默认值
        Set rng = Sheet6.Range("B:B").Find(What:=s, After:=[B2])
        '查找输入框的值
        If Not rng Is Nothing Then '如果不为空就记录首个值
            firstAddress = rng.Address
            Do '循环开始
                rng.Interior.ColorIndex = 6 '上色
                Set rng = .FindNext(rng) '设置查找下一个
            Loop While Not rng Is Nothing And rng.Address <> firstAddress
            '判断是否继续循环
        End If
    End With

rows和columns表示方法

rows(6).select
rows("1:6").select
columns(5).select
columns("B:D").select

rows和columns表示区域在立即窗口的演示

InPutBox输入框

在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的 String。

语法

InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])

Range.Find在区域中查找特定信息

FindNext

FindNext用法帮助手册

Do……Loop……示例（帮助手册有）

【立即窗口】测试代码运行结果

【本地窗口】查看实时对象值