将字符串格式区域传入Range时出现1004错误的排查求助

核心原因 #

从单元格I1通过VLOOKUP获取的字符串，表面显示为"A2:C113"，但实际包含隐藏的非打印字符（比如首尾空格、换行符、ASCII控制字符）。这些字符在调试时不会显示，但会导致VBA的Range()方法无法识别为有效的单元格地址，进而触发1004错误。直接写入字符串时没有这些隐藏字符，所以能正常执行。

验证方式 #

在代码中添加以下调试代码，检查字符串的真实状态：

Debug.Print "字符串长度：" & Len(MyRangeS) ' "A2:C113"的正常长度是7
Debug.Print "首字符ASCII码：" & Asc(Left(MyRangeS, 1)) ' 正常"A"的ASCII码是65

如果长度大于7，或者首字符编码不是65，就说明存在隐藏字符。

解决方案 #

1. 清理字符串中的无效字符 #

使用Trim()去除首尾空格，Application.Clean()清除所有非打印字符，确保传入Range()的是纯有效地址：

Sub SavePrices()
'
' SavePrices saves spot prices from Sheet 'Spot' into Sheet 'saved prices'
'
Dim MyRangeS As String
' 先清理字符串中的隐藏字符
MyRangeS = Application.Clean(Trim(Sheets("saved prices").Range("I1").Value))

Sheets("saved prices").Range(MyRangeS).Value = Sheets("Spot").Range("A2:C112").Value

End Sub

2. 直接在VBA中实现VLOOKUP逻辑 #

跳过单元格中转，直接在代码里执行查找，避免单元格格式或隐藏字符的干扰：

Sub SavePrices()
'
' SavePrices saves spot prices from Sheet 'Spot' into Sheet 'saved prices'
'
Dim lookupResult As String
' 替换成你实际的VLOOKUP参数：查找值、查找区域、返回列、匹配方式
lookupResult = Application.VLookup("你的查找值", Sheets("数据源表").Range("A:B"), 2, False)
' 同样做清理
lookupResult = Application.Clean(Trim(lookupResult))

Sheets("saved prices").Range(lookupResult).Value = Sheets("Spot").Range("A2:C112").Value

End Sub

3. 检查并修正单元格格式 #

右键单元格I1，选择【设置单元格格式】→【数字】→【文本】，然后按F2+Enter刷新公式结果，确保返回的是纯文本格式的地址，没有额外格式干扰。

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