excle 中命令=A1&A2&A3&A4&A5&A6 简化

Question

如题怎样把excle 中命令=A1&A2&A3&A4&A5&A6 简化，少的还还可以如果有一万行~~ 你懂的 求助·

Answer 1

Sub aa()
Dim x
Dim y

For x = 1 To 6
y = y & Range("a" & x).Value
Next x
Range("b1") = y

End Sub

此处拿了6个做了个例子。