加快迭代速度

Question

当我使用我的forloop迭代项目时，通过excel添加项目。我的程序慢了很多，几乎崩溃，因为我可以看到迭代发生。有没有办法立即完成所有这一过程？

Set rng = Range("A1:C2")

For Each row In rng.Rows
  For Each cell in row.Cells
    'Do Something
  Next cell
Next row

Answer 1

您可以使用以下方式打开和关闭屏幕更新/事件：

'custom' => [
    'attribute-name' => [
        'rule-name' => 'custom-message',
    ],
]

和

Application.ScreenUpdating = True
Application.EnableEvents = True