excel 如何写一个宏，点击一下按钮 使某列有数值的单元格 加1

Question

如何建一个宏按钮，实现点击一下，令B列比0大的数值+1，空格及0不加1，希望高手指教及提供宏公式来，谢谢！

Answer 1

其实这个excel宏还是比较简单的。
代码就是:
1、提取一个B列最后一个非空单元格的位置;
2、做一个For循环语句;
3、在循环语句内加入IF判断语句，大于0的就当前单元格加一即可。
详细代码如下图:

这个代码添加到按钮上即可。
如果是窗口按钮就单击鼠标右键添加;
如果是控件按钮就在设计模式下双击按钮再添加代码;

Answer 2

1. 代码如下：
Sub add()
Dim i, a
For i = 2 To 99
a = Range("B" & i)
If a > 0 Then a = a + 1: Range("B" & i) = a
Next i
End Sub
2. 根据你的实际行号范围，调整for循环的最大值（99）。