真的很慢For循环

我怎样才能更快地设置我的循环？

我有4列和超过250行，需要5分钟循环这个：

Application.Calculation = xlCalculationManual Call CPU0 Dim TableA As Range: Set TableA = Range("L_PriceA") With TableA LongA = TableA.Rows.Count For s = 1 To LongA .Cells(s, 3).Value = "dynamic" .Cells(s, 4).Value = "dynamic" .Cells(s, 5).Value = "dynamic" .Cells(s, 6).Value = "dynamic" Next End With 

“dynamic”将从XML的数据，因为没有人帮我这个 ，我不知道：/。 还看了一下stackO中的一些循环问题，但没有主要的提升。

Answer 1

循环范围很慢。 通过将数据移动到Variant数组来避免它，如下所示：

 Dim dat As Variant Dim s As Long With TableA LongA = .Rows.Count dat = .Value ' TableA must be at least 6 columns wide For s = 1 To LongA dat(s, 3) = "dynamic" dat(s, 4) = "dynamic" dat(s, 5) = "dynamic" dat(s, 6) = "dynamic" Next TableA.Value = dat End With