用于连接数组的宏

【问题标题】：Macro for concatenating array用于连接数组的宏
【发布时间】：2016-07-27 10:21:51
【问题描述】：

我有一些如下的值数组。

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

有N个数组我必须附加到字符串

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

谁能给点建议。

【问题讨论】：

标签： vba excel macros

【解决方案1】：

如果要连接整个数组，请使用

myString = Join(array,"")

第二个参数是分隔符（默认是" "，不是""）

【讨论】：

【解决方案2】：

假设您的 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

【讨论】：

它正在制作 ans_str = 1 2 3 .. n .. 但我实际上需要 ans_str = conc(1,2,3,...n)
@user1954762 你想要什么答案？