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

Question

亲爱的 Whosebug 会员，

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

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）输入数据。我希望它使用 A 中的第一个空单元格来输入数据，因此它不会覆盖任何已填充的数据。

我想从中吸取教训，所以如果可能的话，请向我解释我在这里做错了什么，或者我的方法是否缺乏洞察力。

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

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

Userform VBA to copy value into cells

excel

vba

userform