VBA 根据 table 末尾的变量插入行数

Question

我正在尝试编写一些代码来平衡两个不同 table 中的行数，table 1 (MaintSetup) 是 table 用户将在 table 2 (MaintSched) 显示时填写所有信息。用户实际上只需要向 table 1 添加行，因此我希望创建一些代码，根据行之间的差异自动向 table 2 添加行。

我不太擅长 VBA 所以我使用了一些 excel 函数来计算行的差异并将其列在单元格 K9 中（即：如果 table 1比 table 长 3 行工作表背景上的 2 个单元格 K9 中有“3”。

我想出了一些代码来添加指定数量的行，但无法针对不同数量的行进行调整。这是我想出来的，本来我只是1到10加10行。

Sheets("Background").Select
Dim Dif As Integer
Diff = Range("K9")

Sheets("Maintenance Setup").Select

Dim ws As Worksheet
Set ws = ActiveSheet
Dim tbl As ListObject
Set tbl = ws.ListObjects("MaintSched")

Dim i As Byte
    For i = 1 To Diff
    tbl.ListRows.Add
Next i

Answer 1

原来我只是搞砸了我的变量，并在尝试使用 Diff 时将其定义为 Dif。以下代码对我进行了较小的编辑。还发现 Dim i 因为不需要字节。

Sheets("Background").Select
Dim **Diff** As Integer
Diff = Range("K9")

Sheets("Maintenance Setup").Select

Dim ws As Worksheet
Set ws = ActiveSheet
Dim tbl As ListObject
Set tbl = ws.ListObjects("MaintSched")

Dim i As Byte
    For i = 1 To Diff
    tbl.ListRows.Add
Next i

VBA 根据 table 末尾的变量插入行数

VBA insert number of rows depending on variable at end of table

excel

vba

rows