[咨询求助]关于数组JOIN函数的使用

zxox6615

看到VBA基础语法3.3课了,尝试用JOIN写了段代码,但是有报错
咨询下大家,我错在哪里了?

代码:
Dim arr As Variant, txt As Variant
arr = Worksheets("Sheet1").Range("a1:d1").Value
txt = Join(arr, "@")
MsgBox txt

错误提示:
无效的过程调用或参数（错误 5）

香川群子

Join操作对象必须是一维数组，而你的arr是1行5列的二维数组。

必须先用Transpose转换为一维数组才可以。


…………确认还需转置两次才行。

插入：
arr = WorksheetFunction.Transpose(WorksheetFunction.Transpose(arr))

1. Sub tmpMacro()    Dim arr As Variant, txt As Variant    arr = Worksheets("Sheet1").Range("a1:d1").Value    arr = WorksheetFunction.Transpose(WorksheetFunction.Transpose(arr))    txt = Join(arr, "@")    MsgBox txtEnd Sub

复制代码

zxox6615

@香川群子
是否可认为使用Range对象赋值的数组均是多维数组呢?
是否有其它函数可以直接将Excel一行或一列数据以一维模式对数组进行赋值呢?

grf1973

好象join只能用于一维数组，你的那个是二维的。

张三李四

返回一个字符串，该字符串是通过连接某个数组中的多个子字符串而创建的。
语法
Join(sourcearray[, delimiter])
Join函数语法有如下命名参数：
部分 描述
sourcearray 必需的。包含被连接子字符串的一维数组。

请注意，这里所说的数组是一维数组。楼主代码中的arr是一个二维数组。可以理解为 arr(1 to 1 , 1 to 4) 结构的数组。

zhaogang1960

二维数组可使用循环实现Join功能，如果数据不多，也可以使用Transpose把二维数组变成一维数组后，再使用Join
Dim arr As Variant, txt As Variant
arr = Worksheets("Sheet1").Range("a1:d1").Value
arr = Application.Transpose(Application.Transpose(arr))
txt = Join(arr, "@")
MsgBox txt

请注意，Transpose速度很慢，如果数据很多，应该尽量避免使用它

grf1973

1. Sub tt()
   
2.     Dim arr As Variant, txt As Variant
   
3.     arr = Worksheets("Sheet1").Range("a1:d2").Value
   
4.     txt = Join(Application.Index(arr, 1), "@")
   
5.     MsgBox txt
   
6. End Sub

复制代码

奇怪的是，如果      arr = Worksheets("Sheet1").Range("a1:d1").Value 就会报错。。。。。。。。。。

zxox6615

zhaogang1960 发表于 2015-2-28 15:44
二维数组可使用循环实现Join功能，如果数据不多，也可以使用Transpose把二维数组变成一维数组后，再使用Joi ...

是否可认为使用Range对象赋值的数组均是多维数组呢?
是否有其它函数可以直接将Excel一行或一列数据以一维模式对数组进行赋值呢?

zhaogang1960

zxox6615 发表于 2015-2-28 16:10
是否可认为使用Range对象赋值的数组均是多维数组呢?
是否有其它函数可以直接将Excel一行或一列数据以一维 ...

把矩形连续区域赋值给一个Variant变量得到的数组一定是二维数组，如果你想得到一个一维数组，可用循环方式向一维数组赋值
请注意，循环方式是处理数组最有效的方法，不要认为一句能实现的就好，下面一句效率很低，处理数组时最好不要用工作表函数
Application.Transpose(Application.Transpose(arr))

zxox6615

zhaogang1960 发表于 2015-2-28 16:41
把矩形连续区域赋值给一个Variant变量得到的数组一定是二维数组，如果你想得到一个一维数组，可用循环方式 ...

明白了,非常感谢您的帮助!