[已解决]求高手解答 用VBA怎么把A1-A100里的所有内容拼成字符串？

chenkuikui

用VBA怎么把单元格里A1-A100的所有内容拼成字符串（A1&A2&A3&……A98&A99&A100）,然后放到String里

最佳答案

月排行榜 / 总排行榜

liuguansky

2013-3-7 14:21

1. MsgBox Join(Application.Transpose([a1:a100&""]), "")

复制代码

跳转到最佳答案楼层

liuguansky

1. MsgBox Join(Application.Transpose([a1:a100&""]), "")

复制代码

chenkuikui

非常感谢,大虾啊!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1

爱疯

liuguansky 发表于 2013-3-7 14:21

没有&""也可以吧{:041:}

爱疯

我去看了下帮助，
join帮助说：sourcearray 必需的。包含被连接子字符串的一维数组。
即对于数组里的元素未做要求，我试了下数字，如下，可以呀

Sub a()
MsgBox Join(Array(1, 2, 3), "")
End Sub

liuguansky

爱疯 发表于 2013-3-10 21:48
我去看了下帮助，
join帮助说：sourcearray 必需的。包含被连接子字符串的一维数组。
即对于数组里的元素 ...

Sub df()
'    Dim i(9) As Variant
    Dim i(9) As Integer
    For j = 0 To 9
        i(j) = j
    Next j
    MsgBox Join(i)
End Sub
array(1,2,3) 是variant类型。

爱疯

liuguansky 发表于 2013-3-22 14:49
Sub df()
'    Dim i(9) As Variant
    Dim i(9) As Integer

Sub df1()
    Dim i(3) As Variant
    MsgBox Join(i)
End Sub

Sub df2()
    Dim j(3) As Integer
    MsgBox Join(j) '错
End Sub

学习了，为什么帮助中没说明呢？