VBAmacrossearch值然后增加

我刚刚了解了本周的macros，并寻找一些帮助（如果我的问题甚至可能）..我想要做的是运行一个macros，search列C＃1 ..然后在每个单元格它增加数量，直到它达到一个完整的单元格（下一节）..然后find下一个＃1等等等等，直到结束。 如果这样的事情是可能的，任何指导和专业知识，表示赞赏 我在下面添加了一个模型。 另外请记住，我已经使用小数字的例子。

前macros

后macros

Answer 1

通过olmacros录像机回答：

Sub Macro1() Range("C1:C10").Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.FormulaR1C1 = "=R[-1]C+1" End Sub 

编辑：更新，根据注释填充在基于完全填充的列B的连续区域内。

 Sub Macro2() Range("B1").Select Selection.CurrentRegion.Select Selection.Offset(0, 1).Resize(, 1).Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.FormulaR1C1 = "=R[-1]C+1" End Sub 

或者，如果不是连续的，但希望填充到列B中填充的最后一行

 Sub Macro3() Range("B1", Range("B1048576").End(xlUp)).Select Selection.Offset(0, 1).Resize(, 1).Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.FormulaR1C1 = "=R[-1]C+1" End Sub