使用 VBA 宏打印序列

Question

我想在與此公式對應的單元格中打印字母“A”：

1+3*1 = 4

4+3*2 = 10

10+3*3 = 19

我想在單元格 A4、A10、A19 中輸入“A”。 我想為 25 個細胞做這個。

怎么做

Answer 1

你必須測試你是否不會走得太遠：

Sub test_matangraj()
Dim i As Integer
Dim k As Integer
Dim Col As Long
Col = 1

For i = 1 To 25
    Col = Col + i * 3
    If Col < Columns.Count Then
        Cells(1, Col) = "A"
        For k = 1 To i - 1
            If Col + k < Columns.Count Then Cells(1, Col + k) = "A"
        Next k
    Else
        MsgBox "Number of columns excedeed!" & vbcrlfr & _
                "Col: " & Col, vbCritical + vbOKOnly
        Exit For
    End If
Next i
End Sub