Userform VBA将值复制到单元格中

时间:2017-05-18 11:41:01

标签: excel vba userform

亲爱的StackOverFlow成员,

我带着一个愚蠢的问题来找你,我似乎无法解决。 我正在使用userform在employee-database中输入数据(在同一个工作表中)。 代码如下:

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中的第一个空单元格来输入数据,因此它不会覆盖任何填充的数据。

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

1 个答案:

答案 0 :(得分: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