打印序列使用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