作者：绿色风
分类：
时间：2022-08-18
浏览：114
楼主
wise |
关于Join函数对数组行列的连接的一点点理解
如果数组是提取列的，如arr = [A1:A10]这种形式，需要通过一个Transpose转置函数进行转换，因为Join(数组,连接符) 中的数组只能是1维数组。
如果数组赋值是行的话，如 arr = [A1:F1]这种形式，这个时候需要通过转变才能实现：
方法1：
- arr = [A1:F1&""]
- '[]可以使用+-*/&等运算符进行运算,其运算后的结果是字符或数组形式,不再是单元格对象
- MyJoin = Join(arr, "&")
通过后面的&""形式，使得单元格运算后的结果是字符或者数组形式。
方法2：
- arr = [A1:F1]
- MyJoin = Join(Application.Transpose(Application.Transpose(arr)), "&")
通过双Transpose转置实现，可以达到该要求。
测试代码：
- Sub JoinTest()
- Dim arr
- Dim MyJoin As String
- arr = [A1:A10]
- MyJoin = Join(Application.Transpose(arr), "&")
- MsgBox MyJoin
- End Sub
- Sub MyJoinTest1()
- Dim arr
- Dim MyJoin As String
- arr = [A1:F1&""]
- '[]可以使用+-*/&等运算符进行运算,其运算后的结果是字符或数组形式,不再是单元格对象
- MyJoin = Join(arr, "&")
- MsgBox MyJoin
- End Sub
- Sub MyJoinTest2()
- Dim arr
- Dim MyJoin As String
- arr = [A1:F1]
- MyJoin = Join(Application.Transpose(Application.Transpose(arr)), "&")
- '需要两次转置
- MsgBox MyJoin
- End Sub
 join.rar
|
2楼
sam.tan |
不好意思,不太明白用途? |
3楼
lrlxxqxa |
收藏，跟着小七学习。 |
4楼
wqfzqgk |
不错，学习了 |
5楼
wjc2090742 |
 学习一下。 |
6楼
刘志文 |
收藏学习Join函数 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一