假设你在第1行有标题，你想在C列有加号按钮，那么下面的代码将帮助你。

Option Explicit

Sub add_buttons()
Dim btn As Button
Dim i As Long, last As Long
Dim rng As Range
last = Cells(Rows.Count, 2).End(xlUp).Row
Application.ScreenUpdating = False
ActiveSheet.Buttons.Delete
For i = 2 To last
    If Cells(i, 2) <> "" Then
        Set rng = Cells(i, 3)
        Set btn = ActiveSheet.Buttons.Add(rng.Left, rng.Top, rng.Width, rng.Height)
        With btn
            .OnAction = "btn_plus"
            .Caption = "+"
            .Name = "btn_plus_" & i
        End With
    Else
        Exit For
    End If
Next i
Application.ScreenUpdating = True
End Sub

Sub btn_plus()
Dim i As Long
If Left(Application.Caller, 8) = "btn_plus" Then
    i = CInt(Mid(Application.Caller, InStrRev(Application.Caller, "_") + 1))
    Cells(i, 2) = Cells(i, 2) + 1
End If
End Sub

字符串
第一个子add_buttons在B列中的每个值旁边添加按钮。第二个子函数btn_plus将+1添加到被单击的按钮旁边的单元格。

我创建了这个宏：

Sub Increase()
ActiveCell.Value = ActiveCell.Value + 1
End Sub

字符串
...并添加了一个命令按钮，单击时启动此宏。
我选择单元格“B2”，输入数字5并点击两次。
然后我选择单元格“B3”并点击两次：
生成的屏幕截图：

的数据