在文本中为许多连续行自动填充连续数字

Question

Sheets("ENTR Ext Budget").Range("C12").Value = Sheets("BPC-SAP Grant Upload").Range("C62").Value
Sheets("ENTR Ext Budget").Range("C13").Value = Sheets("BPC-SAP Grant Upload").Range("C62").Value
Sheets("ENTR Ext Budget").Range("C...").Value = Sheets("BPC-SAP Grant Upload").Range("C62").Value
Sheets("ENTR Ext Budget").Range("C15000").Value = Sheets("BPC-SAP Grant Upload").Range("C62").Value

我正在设置一个VBA /宏，我需要在行文本中包含/混合的数字在我复制行时连续计数。

即

Sheets("ENTR Ext Budget").Range("C4660").Value = Sheets("BPC-SAP Grant Upload").Range("C19").Value
Sheets("ENTR Ext Budget").Range("C4661").Value = Sheets("BPC-SAP Grant Upload").Range("C19").Value
Sheets("ENTR Ext Budget").Range("C4662").Value = Sheets("BPC-SAP Grant Upload").Range("C19").Value
Sheets("ENTR Ext Budget").Range("C4663").Value = Sheets("BPC-SAP Grant Upload").Range("C19").Value

...这是“C466 *”值，我希望自动填充连续获得。我在其他论坛上找不到任何帮助。很抱歉，如果这是一个新问题，我只是在寻求帮助。

编辑（进一步说明） - 第1 - 感谢您清理代码的显示方式。 - 在行中（如下所示），值“（”C4660“），（”C4661“），（”C4662“），（”C4663“等）......包含在每一行中。 “C *”）引用了将来自另一张表的数据转移到的单元格。 - 我刚刚开始编写宏，我正在寻找一种有效的方法来复制这些行但是（“C *”）值增加在每个连续的行中都是1。我试图避免触及每一行... - 我的第一个（“C *”）值是（“C12”）。我的最终（“C *”）值需要是大致（“C15000”）。 - 如果我可以添加更多详细信息，请告诉我

第二次编辑 - 感谢您的帮助！ - 不幸的是，每一行（“C19”）的价值也必须改变。虽然，根据蒂姆的建议，我认为我已经大幅减少了所需的线路。我已经添加了一个更详细的例子来说明我的想法。当（“C19”）值达到（“C250”）时，我必须回到顶部。

我添加的行应该更多地展示我如何构建它。

任何进一步的建议将不胜感激。

Sheets("ENTR Ext Budget").Range("C12:C21").Value = Sheets("BPC-SAP Grant Upload").Range("C19").Value
Sheets("ENTR Ext Budget").Range("C22:C31").Value = Sheets("BPC-SAP Grant Upload").Range("C20").Value
Sheets("ENTR Ext Budget").Range("C32:C41").Value = Sheets("BPC-SAP Grant Upload").Range("C21").Value
Sheets("ENTR Ext Budget").Range("C42:C51").Value = Sheets("BPC-SAP Grant Upload").Range("C22").Value
Sheets("ENTR Ext Budget").Range("C52:C61").Value = Sheets("BPC-SAP Grant Upload").Range("C23").Value
Sheets("ENTR Ext Budget").Range("C62:C71").Value = Sheets("BPC-SAP Grant Upload").Range("C24").Value
Sheets("ENTR Ext Budget").Range("C72:C81").Value = Sheets("BPC-SAP Grant Upload").Range("C25").Value
Sheets("ENTR Ext Budget").Range("C82:C91").Value = Sheets("BPC-SAP Grant Upload").Range("C26").Value
Sheets("ENTR Ext Budget").Range("C92:C101").Value = Sheets("BPC-SAP Grant Upload").Range("C27").Value
Sheets("ENTR Ext Budget").Range("C102:C111").Value = Sheets("BPC-SAP Grant Upload").Range("C28").Value
Sheets("ENTR Ext Budget").Range("C112:C121").Value = Sheets("BPC-SAP Grant Upload").Range("C29").Value
Sheets("ENTR Ext Budget").Range("C122:C131").Value = Sheets("BPC-SAP Grant Upload").Range("C30").Value

非常感激。再次感谢你！

Answer 1

你可以使用一个循环：

Dim i As Long, rngDest As Range, rngSource As Range

Set rngDest = Sheets("ENTR Ext Budget").Range("C12:C21")
Set rngSrc = Sheets("BPC-SAP Grant Upload").Range("C19")

For i=1 to 100 'for example

    rngDest.Value = rngSrc.Value

    Set rngDest = rngDest.Offset(10, 0) 'move destination down 10 rows
    Set rngSrc = rngSrc.Offset(1, 0)    'move source down 1 row

    'not sure if this is what you meant...
    If rngSrc.Row = 250 then 
        Set rngSrc = Sheets("BPC-SAP Grant Upload").Range("C19")
    End if
Next i