Vba 用VB在Excel中向表中添加行

我一直在到处寻找这个问题的答案，要么我没有找到答案，要么我不理解我找到的答案

我有一个Excel 2013工作簿。我正在使用VBA向工作簿中添加一些下拉列表和表单，以便于填写

我拥有的一个用户表单有几个数据输入字段，当您单击“添加”时，它会将信息添加到表的最后一行

这是该用户表单的代码

Private Sub Add_Click()

Dim the_sheet As Worksheet
Dim table_list_object As ListObject
Dim table_object_row As ListRow
Set the_sheet = Sheets("Structural")
Set table_list_object = the_sheet.ListObjects(1)
Set table_object_row = table_list_object.ListRows.Add

table_object_row.Range(1, 1).Value = "Deck"

last_row_with_data = the_sheet.Range("A" & Rows.Count).End(xlUp).Row

the_sheet.Range("B" & last_row_with_data) = TextBox3
the_sheet.Range("C" & last_row_with_data) = TextBox4
the_sheet.Range("D" & last_row_with_data) = ComboBox1

Unload Me
End Sub

同样地，这工作非常完美，完全符合我的需要

我有另一个用户表单，我需要在其中输入数据，并让它将数据放在表中的一行中。但我不知道如何让它在最后一行之外添加数据

现在我有一个宏，当你点击“添加”按钮时运行

这对于在第7行添加一行非常有用，这是我需要数据的地方。但是我需要这些数据，然后将其输入到新创建的第7行中。此表单将始终输入第7行

---

但我也想知道如何向任何行添加数据。因为在以后的练习册中，我将遇到一个类似的问题。

斯科特，这并没有完全回答我的问题。但是里面有很多有用的信息，链接上的一个东西确实给了我一个想法，这正是我所需要的。工作的代码如下 私有子添加_单击（）

如果我需要宏和列表行，我仍然在玩。添加行。我知道没有宏它就不能正常工作。它似乎只是覆盖了第7行中的内容

谢谢

Sub AddRow6Sheet3()
    Application.ScreenUpdating = False
    Rows("7:7").Insert Shift:=xlDown
    Application.ScreenUpdating = True
End Sub

Call AddRow6Sheet3
ActiveSheet.ListObjects("Table13").ListRows.Add (7)
    With Sheets("Misc Metals")
    .Range("B7").Value = Me.ComboBox5.Value
    .Range("C7").Value = Me.ComboBox1.Value
    .Range("D7").Value = Me.ComboBox2.Value
    .Range("E7").Value = Me.ComboBox3.Value
    .Range("F7").Value = Me.ComboBox4.Value
    .Range("G7").Value = Me.ComboBox6.Value
End With
Unload MeEnd Sub