Question

我正在尝试使用VBA将Doubles数组的内容转储到Excel中的单个单元格中。

我发现an Answer，它可以解决String或Variant的问题，但不能解决Double的问题。

Dim arr(1 To 3) As Double
arr(1) = 0.81
arr(2) = 0.95
arr(3) = 1.74

Worksheets("Test").Cells(1,1).Value = dump(arr, ";")

最后一行应将数组中的所有值写入指定的单元格。

编辑：将0.81更改为0.81等（德语系统与国际标准）

Answer 1

无论如何，它将是一个字符串，循环或转置或使用Index（漂亮的omegastripes）：（并将更改为。）

Dim arr(1 To 3) As Double
arr(1) = 0.81
arr(2) = 0.95
arr(3) = 0.74

Worksheets("Test").Cells(1, 1).Value = Join(Application.Transpose(Application.Transpose(arr)), ";")

在Excel中将VBA双精度数组输出到一个单元格

1 个答案: