宏連接數組

Question

我有一些數組值如下。

array(0) = "1" 
array(1) = "2" 
array(3) = "3" 
. 
. 
. 
array(n) = "n" 

有N多陣的我不得不追加到字符串作爲

String = combined(array(0),array(1),.....,array(n)) 

有人可以請告知。

Answer 1

可以說你的N = 100（在這個例子中），見下面的代碼。

Option Explicit 

Dim ex_Array()   As Variant 
Dim i     As Integer 
Dim ans_str    As String 

Sub concen() 

ReDim ex_Array(0 To 100)  
ex_Array(0) = "1" 
ex_Array(1) = "2" 
ex_Array(3) = "3" 

For i = 0 To UBound(ex_Array) 
    ans_str = ans_str & ex_Array(i)  
Next i  
MsgBox ans_str 

End Sub 

Answer 2

如果你想連接了整個陣列，使用

myString = Join(array,"") 

的第二個參數是分隔符（默認爲" "，不""）