VBA宏搜索值然后递增

Question

我本周刚刚学习了宏，并且正在寻找一些帮助（如果我的问题甚至是可能的话）..我想要做的是运行一个宏来搜索C列中的＃1 ..然后每个它下面的单元格会增加数量，直到达到一个完整的单元格（下一部分）..然后找到下一个＃1，依此类推，直到结束。如果这样的事情是可能的，任何指导和专业知识都值得赞赏我在下面添加了一个模型。另外请记住，我在这个例子中使用了小数字。

预宏

后宏

Answer 1

通过ol'宏录像机回答：

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