Userform VBA將值複製到單元格

Question

親愛的會員StackOverFlow會員，

我來找你一個愚蠢的問題，我似乎無法解決。 我正在使用一個用戶表單來輸入員工數據庫中的數據（在同一個工作表內）。 代碼是如下：

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，直到H 2）與輸入的數據。我希望它使用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