Excel宏中Range等函数内使用变量的正确语法是什么？

你出现报错的核心原因是VBA中字符串拼接变量时，变量不能被包裹在双引号内部，双引号内的内容会被识别为固定文本，不会解析变量值。

1. Range引用变量的正确写法 #

你之前的两种错误写法都是把变量放在了引号里，正确拼接格式如下：

' 写法1：直接拼接行号字符串
For Each cell In Range("J2:J" & RowNum)

' 写法2：传入起止两个单元格作为参数
GroupCell = "J" & RowNum
For Each cell In Range("J2", GroupCell)

2. 单行引用的正确写法 #

变量同样不能放在引号里，正确写法：

' 写法1：直接传入行号参数，单行可以省略冒号拼接
Rows(RowNum).Clear

' 写法2：拼接行范围字符串（适合多行场景）
Rows(RowNum & ":" & RowNum).Clear

你当前的写法还有两个潜在问题：

• 正序遍历删除/清空行时，某行被清空后下方行会上移，会导致下一行被跳过，遍历不全
• 自己计数行号容易出错，可直接用cell.Row获取当前单元格所在行号
• 建议用系统自带方法获取最后一行，兼容性更好

完整可运行参考代码 #

Sub 过滤J列数据()
    Dim lastRow As Long
    Dim i As Long
    ' 自动获取J列最后一行有数据的行号
    lastRow = Cells(Rows.Count, "J").End(xlUp).Row
    
    ' 倒序遍历，避免跳行
    For i = lastRow To 2 Step -1
        ' 判断J列是否包含指定文本
        If InStr(Cells(i, "J").Value, "Data that I want") = 0 Then
            ' 不包含则清空整行，要删除的话把Clear改成Delete即可
            Rows(i).Clear
        End If
    Next i
End Sub

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