VBA中Range对象的Offset方法Mac报错，Windows运行正常

问题根源 #

你的代码在Mac Excel中触发运行时错误1004，核心原因有三点：

• 正序遍历的索引混乱：插入行后后续行会下移，正序循环的索引会跳过新行，Mac Excel对Range对象的偏移处理比Windows更严格，容易触发越界。
• lastRow计算逻辑错误：原代码用Range("C5", Range("C5").End(xlDown)).Rows.Count得到的是C5开始的行数，不是实际最后行行号，循环到lastRow+1时极易让Offset超出有效范围。
• 重复调用Range对象：多次重复调用Range("C5").Offset(i,0)，增加了Mac Excel处理Range对象的出错概率。

修正后的代码 #

Dim lastRow As Long
Dim i As Long
Dim currentCell As Range

' 准确获取C列最后一个非空单元格的行号（从底部往上找，避免中间空行干扰）
lastRow = Cells(Rows.Count, "C").End(xlUp).Row
' 从最后一行往前遍历，插入行不会影响未遍历的单元格位置
For i = lastRow To 5 Step -1
    Set currentCell = Cells(i, "C")
    
    ' 先判断单元格非空，再分支检查值和条件变量
    If Not IsEmpty(currentCell) Then
        If currentCell.Value = 10 And var_con1 <> True Then
            currentCell.EntireRow.Insert
            var_con1 = True
        ElseIf currentCell.Value = 5 And var_con2 <> True Then
            currentCell.EntireRow.Insert
            var_con2 = True
        End If
    End If
Next i

关键改动说明 #

• 反向遍历：从最后一行往C5方向循环，插入行不会改变未遍历单元格的位置，彻底避免索引混乱。
• 精准获取lastRow：用Cells(Rows.Count, "C").End(xlUp).Row直接拿到C列最后一个非空行的行号，不受中间空行影响。
• 缓存Range对象：将当前单元格赋值给currentCell变量，减少重复的Range调用，降低Mac Excel的处理风险。
• 优化条件逻辑：先统一判断单元格非空，再分支检查值和条件变量，逻辑更清晰，也减少了重复判断。

内容的提问来源于stack exchange，提问作者M J