Range("A1") = Array(1, 2, 3, 4) 请问这种写法，就是一个数组的值放入到1个单元格中，用VBA怎么写，

Question

Range("A1") = Array(1, 2, 3, 4)
请问这种写法，就是一个数组的值放入到1个单元格中，用VBA怎么写，要用到改为字符串的形式吗

Answer 1

示例代码：

Sub Demo()
    Range("A1:A4").Value = WorksheetFunction.Transpose(Array(1, 2, 3, 4))
End Sub

运行效果：

追问

我是想把几个自然数放到一个单元格中，你弄误会了，你不会是个女的吧

追答

那就直接 Join 数组，分隔符自己指定。

Range("A1").Value = Join(Array(1, 2, 3, 4))

如果忽略 Join 的第二个参数项，则使用空格 (" ") 来分隔。