使用VBA宏打印序列

我想在与此公式对应的单元格中打印字母“A”：

1+3*1=4

4+3*2=10

10+3*3=19

我想在单元格A4、A10、A19中输入“A”。我想用25个细胞做这个

---

如何做到这一点

如果你不打算走多远，你必须进行测试：

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

子测试_matangraj（）
作为整数的Dim i
将k变为整数
暗色如长
Col=1
对于i=1到25
Col=Col+i*3
如果Col<列，则计数
单元格（1，列）=“A”
对于k=1到i-1
如果Col+k

其他24个单元格是哪一个？@user3598756此序列仅为编号为A1、A4、A10的单元格显示“A”。所以，我想在剩下的22个单元格中填入“A”@user3598756总共25个“A”应该在该列中。我不明白你的意思：用“A”填充的最终范围是什么？非常好！！！谢谢此外，我希望在下一列中输入“A”的次数与它继续增加的次数相同。假设A4之后是第二次出现，那么A5中也有“A”，如果A10（第三次出现），那么A11和A12也应该有“A”。。请帮忙。真的很难看。。。thanks@matangraj当前位置我的心情非常好，以至于我忽略了你的“紧急”，非常感谢你在这里问一些说紧急的事情，所以请避免！享受！；）我知道，但请帮忙。我希望你能理解这个问题。A1包含“A”，然后是A4（第二次出现），所以A5也包含“A”，然后是A10（第三次出现），所以A11、A12也包含“A”。像这样我要听命于错误。下一个控制变量无效reference@matangraj：更正！；）