VBA中如何使用索引编号表示法清除指定单元格区域内容

你的代码无法正常运行的核心问题是：Range()方法接收字符串类型参数时，不会解析字符串内部的VBA对象表达式。你把Cells(30, 2)、Cells(x, 6)这两个返回单元格对象的表达式写在了双引号内部，VBA会直接把整段内容当成普通文本处理，无法识别为合法的单元格引用，自然执行失败。

你可以根据自己的编码习惯选以下两种合法写法：

方案1：传入单元格对象作为Range参数（适配你用行列索引定位的需求） #

Range方法原生支持接收两个单元格对象作为起止参数，分别对应区域的左上角和右下角，注意不要给这两个参数加双引号：

' 简易写法：仅当代码运行时活动工作表为Worksheets(1)时可正常执行
Worksheets(1).Range(Cells(30, 2), Cells(x, 6)).ClearContents

更稳妥的写法是显式绑定所有单元格的父工作表，避免跨表调用时触发“Range作用于不同工作表单元格”的运行时错误：

Dim ws As Worksheet
Set ws = Worksheets(1)
ws.Range(ws.Cells(30, 2), ws.Cells(x, 6)).ClearContents

方案2：拼接A1样式的引用字符串 #

如果习惯用A1标记法，可以把变量x从引号中拆出做字符串拼接，左上角固定为B30，右下角为F列拼接行号x：

Worksheets(1).Range("B30:F" & x).ClearContents

注意：运行代码前请确保变量x已经被赋值为大于等于30的有效正整数行号，否则会出现引用无效的错误。

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