可以使用Join函数具体用法如下: Dim ss(10) As String For i = 1 To 10 ss(i) = "num" & i Next Debug.Print Join(ss, "&")第一个参数是数组,第二个参数是分隔符执行结果:&num1&num2&num3&num4&num5&num6&num7&num8&num9&num10如果你不想要分隔符,你可以把它替换掉,要不要你就自己看着办吧。