Question

我认为这可以用循环编写，但我不知道如何。我不知道最好的Access VBA。有谁能提出建议？

.Range("E4").Value = "O"
.Range("F4").Value = "U"
.Range("G4").Value = "O"
.Range("H4").Value = "U"
.Range("I4").Value = "O"
.Range("J4").Value = "U"
.Range("K4").Value = "O"
.Range("L4").Value = "U"
.Range("M4").Value = "O"
.Range("N4").Value = "U"
.Range("O4").Value = "O"
.Range("P4").Value = "U"
.Range("Q4").Value = "O"
.Range("R4").Value = "U"
.Range("S4").Value = "O"
.Range("T4").Value = "U"
.Range("U4").Value = "O"
.Range("V4").Value = "U"
.Range("W4").Value = "O"
.Range("X4").Value = "U"
.Range("Y4").Value = "O"
.Range("Z4").Value = "U"
.Range("AA4").Value = "O"
.Range("AB4").Value = "U"
.Range("AC4").Value = "O"
.Range("AD4").Value = "U"
.Range("AE4").Value = "O"
.Range("AF4").Value = "U"
.Range("AG4").Value = "O"
.Range("AH4").Value = "U"
.Range("AI4").Value = "O"
.Range("AJ4").Value = "U"
.Range("AK4").Value = "O"
.Range("AL4").Value = "U"

现在也请帮助

.Range("A5", "A6").Merge
.Range("A7", "A8").Merge
.Range("A9", "A10").Merge...

.Range("B5", "B6").Merge
.Range("B7", "B8").Merge
.Range("B9", "B10").Merge....

Answer 1

这是一种无循环的方法：

Sub test()
    Dim s As String
    s = Trim(Application.WorksheetFunction.Rept("O U ", 17))
    Range("E4:AL4").Value = Split(s)
End Sub

Answer 2

您无法使用宏记录器记录循环，但我认为您应该尝试并查看代码。你会从中学到很多东西。好吧，也许这就是你得到的东西。无论如何，当我第一次学习VBA时，我发现Macro Recorder很有帮助。

Sub Macro1()
  Range("A1:D1").Merge (True)
  Range("A2:D2").Merge (True)
  Range("A3:D3").Merge (True)
End Sub

如何在具有交替值的循环中设置范围值

2 个答案: