VBA中Range赋值得到的Variant()使用Join()函数报错原因咨询

Join函数报错核心原因 #

VBA内置Join函数仅支持一维数组作为入参，你遇到报错的本质是两种场景下的Variant()数组维度存在差异：

• 直接将Range("a1:a3")赋值给变量时，得到的是二维Variant数组：哪怕你选中的是单列/单行区域，VBA默认返回的都是(1 to 3, 1 to 1)结构的二维数组，不符合Join的参数要求
• 使用Array(1,2,3)生成的是(0 to 2)结构的一维Variant数组，完全符合Join的入参要求，因此可以正常运行

你可以通过以下代码验证两者的维度差异：

' 测试Range赋值的数组维度
s = Range("a1:a3")
Debug.Print UBound(s, 1) ' 输出3，第一维上限
Debug.Print UBound(s, 2) ' 输出1，第二维上限，可证明是二维数组

' 测试Array生成的数组维度
s2 = Array(1,2,3)
Debug.Print UBound(s2, 1) ' 输出2，第一维上限
Debug.Print UBound(s2, 2) ' 直接抛出下标越界错误，证明只有一维

如果你想继续用Join实现拼接，只需要把二维数组转成一维即可，单列区域可以用Transpose直接转换：

s = Range("a1:a3")
[b3] = Join(Application.Transpose(s)) ' 转成一维后即可正常调用Join

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