Excel VBA间接单元格引用报错：超出范围异常求助

你遇到的问题是因为Range("$B($B$1)")的语法不符合VBA中单元格引用的规则，VBA无法识别这种格式，所以抛出了"超出范围"的错误。咱们一步步修正这个问题：

错误原因分析 #

你想引用B列中由B1指定行号的单元格，但原代码里的$B($B$1)不是合法的单元格地址格式——正确的格式应该是类似B5这样的"列字母+行号"组合，而不是把行号放在括号里。

正确的写法示例 #

方法1：拼接单元格地址字符串 #

把B列的列标识和B1中的行号拼接成合法的单元格地址：

Workbooks("Personal_Finances").Sheets(categoryType).Range("B" & Workbooks("Personal_Finances").Sheets(categoryType).Range("B1").Value).Value = amount

这里要注意：一定要明确指定B1所在的工作簿和工作表，避免VBA默认引用当前活动表的B1（如果当前活动表不是categoryType对应的表，就会出错）。

方法2：使用Cells属性（更推荐） #

Cells属性的语法是Cells(行号, 列号)，B列对应的列号是2，这样写更直观也不容易出错：

Workbooks("Personal_Finances").Sheets(categoryType).Cells(Workbooks("Personal_Finances").Sheets(categoryType).Range("B1").Value, 2).Value = amount

额外注意事项 #

• 确保B1单元格中的值是有效的正整数行号，不能是负数、非数字，也不能超过当前工作表的最大行数（Excel中一般是1048576行）。
• 确认Personal_Finances工作簿处于打开状态，如果没打开，需要先打开或者用完整路径引用。
• 检查categoryType变量的值是否和目标工作表的名称完全一致（大小写不敏感，但拼写不能错）。

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