excel 用vba 宏 中 用一个for循环 将 一列满足条件的后面加上 需要的数值 比如

1、打开一个表，选中序列，点击工具-宏，开始录制。

2、录制完成后按alt+f11 切换到代码编辑窗口，设置变量i为长整形，并且设置一个for循环，循环次数比要添加的工资条标签大，在end sub之前加next。

3、按alt+f11切换到excel界面，再录制一个删除标题的宏，修改代码，添加for循环按alt+f8调出宏窗口。

4、从视图中调出窗体按钮，拖动出一个按钮并为其制定生成工资表的宏 。

5、右键点击编辑文字按钮改名，再按相同的方法添加一个删除标题栏的宏，这样就可以逆向 *** 作了。

方法1:A列没有任何数据时,Row获得的最后一行有数据的行号是1, 数据会从row+1行开始,也就是第二行,要想从第一行写入数据 要用代码判断调整.(代码中没有做这个判断)

Private Sub CommandButton1_Click()

With Sheets(1)

Row = .Range("A65536").End(xlUp).Row

.Range("A" &Row + 1).Value = TextBox1.Value

End With

End Sub

方法2: 定义了一个公共变量N来记录有数据的行.每点一次按钮 N变量加1.

Dim N As Long

Private Sub CommandButton1_Click()

N = N + 1

Sheets(1).Range("A" &N).Value = TextBox1.Value

End Sub

i = 2

Do While Cells(i, 1) <>""

i = i + 1

Loop

Cells(i, 1) = "填入内容"

Cells(i, 2) = "填入内容"

Cells(i, 3) = "填入内容"

原理：找到第一列最后空白的单元格作为输入数据行

---