VBA 添加数据

发布网友发布时间：2022-06-06 09:30

共4个回答

热心网友时间：2022-07-10 03:58

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

热心网友时间：2022-07-10 03:59

可用下面语句找到该列最后一个不为空单元格，再赋值

i=range("a65536").end(3).row '该语句意思是，A列从a65536向上找，返回第一个不为空单元格的行号,赋值给变量i

然后通后cells(i+1,1)="*" 语句给下一个单元格赋值

热心网友时间：2022-07-10 03:59

把你的代码贴上来。才好相应的改动。
行变量增加1.
或用offset(1)来实现

热心网友时间：2022-07-10 04:00

用CTRL－UP或DOWN的方法找到行号啊。也可以用UsedRange进行计算啊。