没有完全按你说的做,你只要先在B1输入任一值,点命令按钮,之后A栏里面的数字就会与输入的数字相加,我的程序只到1000行...你可以根据需要改一下:Range("B1").Select(这一句你可以改输入单元格,目前是B1)For X = 1 To 1000(这一句你可以改你的目标行数,目前是到1000行)Private Sub CommandButton1_Click()Dim X As IntegerRange("B1").SelectSelection.CopyFor X = 1 To 1000If Cells(X, 1)"" ThenCells(X, 1).SelectSelection.PasteSpecial Operation:=xlAddEnd IfNext XEndEnd Sub |