Question

我在Excel中创建了一个简单的表单，用于将数据插入电子表格。我的工作表中有一个表格，第2行标题，第3行空白。当我将数据表格输入第一个空行时，它从第4行开始（表格下方的第一行）。我想将数据插入现有表中。我怎么能这样做？

这是我表单中的添加按钮代码：

Private Sub Add_Click()

TrackingDate = UserForm1.TrackingDate.Value
INS = UserForm1.INS.Value
COY = UserForm1.COY.Value
Amount = UserForm1.Amount.Value
InvoiceDate = UserForm1.InvoiceDate.Value
InvoiceNumber = UserForm1.InvoiceNumber.Value
PolicyNumber = UserForm1.PolicyNumber.Value
Reminder = UserForm1.Reminder.Value
Cheque = UserForm1.Cheque.Value
Status = UserForm1.Status.Value

Range("A" & Rows.Count).End(xlUp).Offset(1).Value = TrackingDate
Range("B" & Rows.Count).End(xlUp).Offset(1).Value = INS
Range("C" & Rows.Count).End(xlUp).Offset(1).Value = COY
Range("D" & Rows.Count).End(xlUp).Offset(1).Value = Amount
Range("E" & Rows.Count).End(xlUp).Offset(1).Value = InvoiceDate
Range("F" & Rows.Count).End(xlUp).Offset(1).Value = InvoiceNumber
Range("G" & Rows.Count).End(xlUp).Offset(1).Value = PolicyNumber
Range("H" & Rows.Count).End(xlUp).Offset(1).Value = Reminder
Range("I" & Rows.Count).End(xlUp).Offset(1).Value = Cheque
Range("J" & Rows.Count).End(xlUp).Offset(1).Value = Status

End Sub

Answer 1

当您使用Range("A" & Rows.Count).End(xlUp)接近Excel“表”时，即使该单元格为空，注册的第一个单元格也将是“表格”的最后一个单元格。我没有对它进行测试，但怀疑如果你的“表格”是全部值，那么如果在空白行下方输入某些内容，它就不会自动扩展。

您可以尝试在表格的最后一列添加一个无关紧要的公式，例如=Row()，并隐藏该列 - 然后表格应自动延伸。

从表单中将数据插入表中

1 个答案: