VBA宏无法将行计数变量传递给数组范围的技术求助

你遇到的问题核心是错误地把字符串赋值给了变量，而不是实际获取单元格区域的数值数组。原来的代码里PhonesArray = " [A1:A" & lrow & "].Value2"只是把一段文本存进了变量，并没有让VBA去读取对应的单元格数据。下面给你几种可行的解决方案：

方案1：直接使用Range对象拼接区域引用 #

这是最直观的写法，直接用字符串拼接出完整的区域地址，再通过Range对象获取它的Value2属性：

' 建议用Long类型存储行数（行数是整数，Variant没必要）
Dim lrow As Long
lrow = Cells(Rows.Count, 1).End(xlUp).Row

Dim PhonesArray As Variant
' 直接拼接区域地址，获取对应区域的数值数组
PhonesArray = Range("A1:A" & lrow).Value2

方案2：用Resize方法动态扩展区域 #

如果觉得拼接字符串不够优雅，可以用Resize方法从A1单元格开始扩展到目标行数，这种写法更灵活：

Dim lrow As Long
lrow = Cells(Rows.Count, 1).End(xlUp).Row

Dim PhonesArray As Variant
' 从A1开始，扩展为lrow行、1列的区域
PhonesArray = Range("A1").Resize(lrow, 1).Value2

方案3：结合Evaluate函数实现类似方括号的写法 #

如果你偏好方括号[]的简写风格，需要用Evaluate函数执行拼接后的区域表达式：

Dim lrow As Long
lrow = Cells(Rows.Count, 1).End(xlUp).Row

Dim PhonesArray As Variant
' 用Evaluate解析拼接的区域字符串
PhonesArray = Evaluate("A1:A" & lrow).Value2

额外提示：处理单行数据的情况 #

如果lrow等于1（只有一行数据），Value2会返回单个值而非数组。如果需要确保PhonesArray始终是二维数组，可以加个简单判断：

Dim lrow As Long
lrow = Cells(Rows.Count, 1).End(xlUp).Row

Dim PhonesArray As Variant
If lrow = 1 Then
    ' 手动初始化单元素数组
    ReDim PhonesArray(1 To 1, 1 To 1)
    PhonesArray(1, 1) = Range("A1").Value2
Else
    PhonesArray = Range("A1:A" & lrow).Value2
End If

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