用户形成VBA将值复制到单元格中

亲爱的同事们，StackOverFlow会员，

我有一个愚蠢的问题来找你，我似乎无法解决。 我正在处理一个用户表单来input员工数据库中的数据（在同一个工作表中）。 代码如下：

Private Sub CommandButton1_Click() Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("Employee-Data") iRow = ws.Cells(Rows.Count, 13) _ .End(xlUp).Offset(1, 0).Row ws.Cells(iRow, 1).Value = Me.TextBox1.Value ws.Cells(iRow, 2).Value = Me.TextBox2.Value ws.Cells(iRow, 4).Value = Me.TextBox3.Value ws.Cells(iRow, 5).Value = Me.TextBox4.Value ws.Cells(iRow, 6).Value = Me.TextBox5.Value ws.Cells(iRow, 7).Value = Me.TextBox6.Value ThisWorkbook.Save Unload Employee End Sub 

代码现在使用第一行（A2到H2）input数据。 我想要它使用A中的第一个空单元格input数据，所以它不会覆盖任何填充的数据。

我想从中学习，所以如果可能的话，请解释我在这里做错了什么，或者如果我的方法缺乏洞察力。

Answer 1

要在列A中查找第一个空行，请尝试…

 iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row 

1在上面的代码表示列A.您可以使用列索引或列字母像…

 iRow = ws.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row