初学vba ，JOIN函数的问题

iaskmore

用别怕，excel vba学习的例子，自己改动了一下。代码编译不了
那位大师给解答一下
Private Sub CommandButton1_Click()
Dim arr As Variant, txt As String
arr = Range("a1:b1").Value
txt = Join(arr, "@")
MsgBox txt
End Sub

DataBus

join 只适用于一维数组，你程序的arr是2维的。

hehex

原因楼上朋友已经说的很清楚了。从单元格直接生成的数组是二维数组，即使这个数组只有一行，或者只有一列都是二维数组，这是系统规定的。
改写了你的代码，两种方式，第一种是采用一维数组赋值方式，第二种是沿用你的思路把二维数组的值导入另一个一维数组来达到目的。
Private Sub CommandButton1_Click() '一维数组循环赋值
Dim arr(1 To 2), i%, txt$
    For i = 1 To 2
        arr(i) = Cells(1, i)
    Next
    txt = Join(arr, "@")

End Sub

Private Sub CommandButton1_Click() '二维数组导入动态一维数组使用Join 函数
Dim arr As Variant, txt As String, br() As String, i%
    arr = Range("a1:b1").Value
    ReDim br(1 To UBound(arr, 2))
    For i = 1 To UBound(arr, 2)
        br(i) = arr(1, i)
    Next
    txt = Join(br, "@")
    MsgBox txt
End Sub

iaskmore

请教一下br() As String, i%是声名什么变量啊？

刚刚查了一下：
'%=integer   2 byte (-2^15 to 32,767) 2^16/2

是不是将i声名为integer类型变量？
br（）是什么意思

hehex

iaskmore 发表于 2013-2-7 20:46
请教一下br() As String, i%是声名什么变量啊？

刚刚查了一下：

br() as String 是声明br 是一个动态数组，这个数组的元素都是String 类型的，维数和每维的元素数量会由使用前的redim 语句来确定。
i% 是 i As Integer 的简写， $ 是String 类型的简写。《别怕》那本书上有详细的讲解。

iaskmore

hehex 发表于 2013-2-7 11:19
原因楼上朋友已经说的很清楚了。从单元格直接生成的数组是二维数组，即使这个数组只有一行，或者只有一列都 ...

Private Sub CommandButton1_Click() '一维数组循环赋值
Dim arr(1 To 2), i%, txt$
    For i = 1 To 2
        arr(i) = Cells(1, i)
    Next
    txt = Join(arr, "@")
好像编译不过去。能不能给看看

hehex

iaskmore 发表于 2013-2-8 22:57
Private Sub CommandButton1_Click() '一维数组循环赋值
Dim arr(1 To 2), i%, txt$
    For i = 1 To  ...

怎么可能编译不过去，你没把End sub 加上吧？

远征之辉

他果然没加，啊哈哈哈

johnwalk

hehex 发表于 2013-2-9 12:52
怎么可能编译不过去，你没把End sub 加上吧？

bulleye~~~

jwjnh001

Sub ad()
arr = Range("a1:b1")
MsgBox Join(Application.Transpose(Application.Transpose(arr)), "-")

End Sub
转置两次