Question

您好，请问以下代码为何不起作用？我想用“ aaaa”填写单元格。我是VBA初学者，如果您提供一些理论参考，将不胜感激。谢谢

Sub aa()
   Dim row As Integer
   Dim col As Integer

   For row = 1 To 20
       For col = 1 To 20
           Cells(row, col) = "aaaa"

       Next row
   Next col

End Sub

Answer 1

嗨，重要的是要学习VBA的语用学。

始终记住，在使用嵌套的for循环时，请确保为该循环调用正确的“下一个”实例。

在您的代码中，“下一行”应该在外部for循环中，而“下一行”应该在内部循环中。

Sub aa()
   Dim row As Integer
   Dim col As Integer

   For row = 1 To 20
       For col = 1 To 20
           Cells(row, col) = "aaaa"

       Next col
   Next row

End Sub

VBA的...。循环查询。在Excel中填写单元格

1 个答案: