EXCEL VBA 动态数据输入

Question

Range("D:D") 中的红色框是来自 Me.ComboBox1.Value 的值。

黄色和绿色是来自 Me.TextBox1 的数据和 Me.TextBox2分别。在我身上，值(value)在 Me.TextBox1和 Me.TextBox2将根据 Me.ComboBox1 中选择的值插入到此工作表中.

因此，在这种情况下，我希望根据用户选择的红色输入黄色和绿色。

另一个额外的事情是我放了一个 .OffSet(1,0).EntireRow.Insert最后一行黄色和绿色数据

Answer 1

这应该这样做:

nextrow = Sheets("DB Cust").Range("C" & Sheets("DB Cust").Rows.Count).End(xlUp).Row + 1

更新 在您进行编辑之后，我认为您可能需要类似的东西。请注意，这取决于每个数据 block 在 E 列中始终存在一个值才能使其正常工作:

Dim lngNewRow As Long
Dim strLookupValue As String

strLookupValue = "A" ' or B/C/D etc.

lngNewRow = Sheets("DB Cust").Range("D:D").Find(strLookupValue).Offset(, 1).End(xlDown).Row + 1
Sheets("DB Cust").Rows(lngNewRow).Insert
Sheets("DB Cust").Cells(lngNewRow, "E").Value = "Data for column E"
Sheets("DB Cust").Cells(lngNewRow, "F").Value = "Data for column F"

关于您的第 4 点，如果“D”是列表中的最后一个值，那么为什么您需要插入额外的空白行，大概它下面的所有行都是空白的？