如何在表格中添加一行？

Question

我想要达到的目标：
如果子表有一行填充，我想添加一个新行。

我试过的
因为我有 10 个父表，所以我不能使用Cells(Cells.Rows.Count, "E").End(xlUp).Row因为它只会计算最后一个父表。

所以我尝试用列表对象来做。

当我尝试添加列表对象时：

With Worksheets("Uitwendige scheidingen")
    .ListObject.Add(Range("F" & NextRow + 25)).Name = "tbl_schuindak_orientatie" & Rij
End With

（Rij = 父表）

（NextRow = 父表的起始位置）

我收到错误 438

笔记
我之前没有在工作表中添加任何列表对象，因此父表基本上是“假”表而不是列表对象。

Answer 1

首先，你必须.Add一个ListObject到ListObjects集合。 此外，您无法通过其Name属性设置新的ListObject 。 您首先必须使用适当的源范围对其进行初始化。 然后将其重命名。 作为一个简单的例子：

Sub Test()

Dim nxt As Long
Dim tbl As ListObject

With ThisWorkbook.Worksheets("Sheet1")
    For x = 1 To 10 Step 3
        Set tbl = .ListObjects.Add(xlSrcRange, Source:=.Range(.Cells(x, 1), .Cells(x + 1, 1)), XlListObjectHasHeaders:=xlYes)
        tbl.Name = "Table" & x
    Next x
End With

End Sub

现在将此逻辑应用于您的情况。

注意：请参阅如何应用xlYes来告诉本示例中的XlListObjectHasHeaders参数，它需要考虑我的源范围具有标题。 如果您没有，请设置为xlNo 。