输入数据时，VBA跳过单元格。

Question

我的VBA代码有一个问题，也许有人可以解释我犯了什么错误，以及如何修复它。我的目标是在不跳过单元格的情况下创建7列。我有7个文本框，但并不是所有的文本框都必须在每次输入数据时填写。当数据仅在“名称”文本框中添加时，它会创建新行，但当只添加姓氏时，则跳过第一行空行，然后在“名称条目”(如附件)下对角输入Excel img。

另外，当我想在其他文本框中添加条目时，输入的数据只是移动。

Private Sub CommandButton1_Click()

   Dim LR As Long

   LR = Cells(Rows.Count, 1).End(xlUp).Row + 1

   Cells(LR, 1).Value = Name.Value
   Cells(LR, 2).Value = Surname.Value
   Cells(LR, 3).Value = Address.Value
   Cells(LR, 4).Value = Phone.Value
   Cells(LR, 5).Value = City.Value
   Cells(LR, 6).Value = Car.Value
   Cells(LR, 7).Value = Job.Value

   Name.Value = ""
   Surname.Value = ""
   Address.Value = ""
   Phone.Value = ""
   City.Value = ""
   Car.Value = ""
   Job.Value = ""


End Sub

Answer 1

您总是在查找A列中的最后一行，这就是为什么它在A列的最后一行下面添加了姓氏。如果您想知道另一列的最后一行，则需要将Rows.Count后面的1更改为相应的编号。您也可以在一行中完成此操作，请使用以下内容：

Private Sub CommandButton1_Click()

   Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Value = Name.Value
   Cells(Cells(Rows.Count, 2).End(xlUp).Row + 1, 2).Value = Surname.Value
   Cells(Cells(Rows.Count, 3).End(xlUp).Row + 1, 3).Value = Address.Value
   Cells(Cells(Rows.Count, 4).End(xlUp).Row + 1, 4).Value = Phone.Value
   Cells(Cells(Rows.Count, 5).End(xlUp).Row + 1, 5).Value = City.Value
   Cells(Cells(Rows.Count, 6).End(xlUp).Row + 1, 6).Value = Car.Value
   Cells(Cells(Rows.Count, 7).End(xlUp).Row + 1, 7).Value = Job.Value

   Name.Value = ""
   Surname.Value = ""
   Address.Value = ""
   Phone.Value = ""
   City.Value = ""
   Car.Value = ""
   Job.Value = ""

End Sub