在Excel VBA中一次写入多个单元格

Question

在Excel VBA中，我使用一些代码来更新单元格。像：

for i = 1 to 1000
    for j = 1 to 1000
        cells(j,i)=<whatever_different_in_each_cell>
    next
next

有没有办法一次更新所有单元格，而不是单独更新每个单元格？原因是在Excel中更新一个单元格非常耗时，当有很多单元格时，它很快就会变得无穷无尽。

Answer 1

范围（小区（1,1），细胞（1000,1000））=＆＃34;无论＆＃34;

Answer 2

Range(<...>).Value = Array (value1, value2, <...>, valueN)

值的数量必须与Range中的单元格数完全相同，否则，范围将用#VALUE!填充。

Answer 3

尝试一下：

Sub WriteMultipleCells()

x = "whatever"
ThisWorkbook.Worksheets("Sheet1").Range("A1:X1") = x

End Sub