打印序列使用VBA宏

-1

我想打印对应于该式中的细胞的字母 “A”：打印序列使用VBA宏

1 + 3 * 1 = 4

4 + 3 * 2 = 10

10 + 3 * 3 = 19

我想在单元格A4，A10，A19中输入“A”。我想为25个单元做这个。

如何做到这一点

来源

2017-02-09 mad2

的，哪些是与其他24个单元？ – user3598756

@ user3598756此后缀仅为单元号。 A1，A4，A10显示“A”。所以，我想用“A”填充剩余的22个单元格 – mad2

@ user3598756总计25“A”应该在那一列 – mad2

你必须测试，如果你不打算虽然远：

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

来源

2017-02-09 09:10:45 R3uK

作品太棒了！谢谢。另外，我想在下一列中输入“A”的次数越来越多。假设A4之后是第二次在那里，那么在A5也是“A”，如果A10（第三次到来），那么A11和A12也应该有“A”..请帮忙。这真的很有用......谢谢 – mad2

@matangraj：我心情很好，我忽略了你的“紧急”，在这里非常感激地问一些说它很紧急的事情，所以避免它！请享用！ ;） – R3uK

我知道，但请帮忙。我希望你明白这个问题。 A1包含“A”，然后是A4（第二次来到），因此A5也是“A”，然后是A10（第三次），所以A11，A12也包含“A”。像这样我想做 – mad2

打印序列使用VBA宏

回答

相关问题