Question

excel 用VBA怎么循环给100万个单元格赋不同值

excel 用VBA怎么循环给100万个单元格赋不同值

我自己写的代码如下，这样循环出来太慢了，要花很长时间，有没有比较高效的赋值方法，最好能1分钟内完成的
Sub 生成()
n = 0
For i = 2 To 1001
For j = 2 To 1001
n = n + 1
Sheets("地图").Cells(i, j) = n
Next
Next
End Sub

Answer 1

代码改了一下，应该快很多，你自己试试看：

Sub 生成()
    Dim i,j,n, arr(2 To 1001, 2 To 1001)
    n = 0
    For i = 2 To 1001
        For j = 2 To 1001
            n = n + 1
            arr(i,j) = n
        Next
    Next
    Sheets("地图").Cells(2, 2).resize(1000,1000) = arr
End Sub

Answer 2

兄弟，试试下面的代码：
Sub 生成()
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
.DisplayAlerts = fase
End With
n = 0
For i = 2 To 1001
For j = 2 To 1001
n = n + 1
Sheets("地图").Cells(i, j) = n
Next
Next
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
.EnableEvents = True
.DisplayAlerts = True
End With
End Sub

Answer 3

界面刷新关了没？