vba向excel表中插入数据？

i = 2

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

i = i + 1

Loop

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

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

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

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

方法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

---