嘿，我来帮你梳理下代码里的问题，你遇到的‘Range’对象‘_global’错误主要是因为找不到单元格时还在访问它的属性，再加上代码里还有几个新手容易踩的坑，咱们一步步来解决：

核心错误原因分析 #

• 未处理Find返回Nothing的情况：当Find找不到符合条件的高亮单元格时，cell会变成Nothing，这时你再执行Set address = Range(cell.address)就会触发错误——因为Nothing对象没有address属性。
• 变量未初始化：counter和i既没声明也没初始值，VBA默认会把它们当成Variant类型，但初始值是Empty，做运算或数组操作时会出问题。
• 变量名与内置属性冲突：address和start都是VBA的内置属性（比如Range.Address），用它们当变量名会导致混淆，引发奇怪的错误。
• 日期比较错误：(28 / 1 / 2013)是数学除法运算（结果≈0.00138），不是日期！这样的比较完全不符合你的需求。
• 多余的Range赋值：cell本身就是Range对象，没必要通过cell.address重新创建新的Range，Set address = Range(cell.address)和Set start = Range(address)都是冗余且错误的操作。

修正后的完整代码（带详细注释） #

Option Explicit ' 强制声明所有变量，避免拼写错误和隐藏bug

Sub HighlightOffsetCells()
    Dim cell As Range
    Dim startCell As Range ' 改名避免和内置start关键字冲突
    Dim counter As Integer
    Dim i As Integer
    Dim arr() As Variant ' 明确数组类型
    Dim targetDate As Date
    Dim offsetRows As Integer ' 存储要相隔的行数，可根据需求修改
    
    ' 初始化变量
    counter = 0
    i = 0
    offsetRows = 3 ' 示例：高亮原单元格下方第3行的单元格，可自定义
    targetDate = DateSerial(2013, 1, 28) ' 正确创建目标日期（年,月,日）
    Set startCell = Range("A1")
    
    ' 设置查找格式（只需要执行一次，无需循环内重复操作）
    Application.FindFormat.Clear
    Application.FindFormat.Interior.Color = RGB(146, 208, 80) ' 绿色高亮
    
    ' 循环查找所有符合格式的单元格
    Do
        ' 查找A列中符合高亮格式的单元格，从startCell之后开始搜索
        Set cell = Range("A:A").Find(What:="*", SearchFormat:=True, After:=startCell)
        
        ' 终止条件：找不到符合条件的单元格时退出循环
        If cell Is Nothing Then Exit Do
        
        ' 检查单元格值是否匹配目标日期
        If cell.Value = targetDate Then
            counter = counter + 1
        End If
        
        ' 将单元格值存入数组（测试循环用）
        ReDim Preserve arr(i)
        arr(i) = cell.Value
        i = i + 1
        
        ' 核心需求：高亮与原单元格相隔指定行数的单元格
        cell.Offset(offsetRows, 0).Interior.Color = RGB(255, 255, 0) ' 示例：设置为黄色高亮
        
        ' 更新起始单元格，避免重复查找同一个单元格
        Set startCell = cell
        
        ' 自定义终止条件：当counter达到2时退出循环
        If counter >= 2 Then Exit Do
    Loop
    
    ' 可选：在立即窗口打印数组内容，验证循环结果（按Ctrl+G打开立即窗口）
    Dim idx As Integer
    For idx = LBound(arr) To UBound(arr)
        Debug.Print arr(idx)
    Next idx
End Sub

新手必备的VBA注意事项 #

• 永远开启Option Explicit：在VBA编辑器中设置「工具→选项→编辑器→要求变量声明」，以后新建模块会自动添加。它能帮你快速发现拼写错误和未声明变量的问题。
• 必须处理Nothing对象：每次使用Find方法后，一定要先判断返回的Range是否为Nothing，否则访问其属性/方法会直接报错。
• 避免使用内置关键字当变量名：比如address、start、date这些都是VBA内置的，换个类似startCell、cellAddr的名字就不会踩坑。
• 正确处理日期：VBA中日期是特殊的数字，创建日期要用DateSerial(年,月,日)或CDate("YYYY-MM-DD")，直接用斜杠会被当成除法运算。

内容的提问来源于stack exchange，提问作者Adithya Kumar