Question

我有以下代码，它在另一张表格中的所有表格中列出了一个列表（＆＃34; Lastkombinationer＆＃34;）（＆＃34; A1.6Laster＆＃34;）。

我已经制作了添加和删除表格的宏，所以我需要一个代码使列表生效，这样每当我添加/删除一个表时列表会自动调整。
此外，列表从最旧添加的表到最新添加的顺序排序表。我需要它在顶部的表的顺序最远的桌子。
最后，我想从列表中排除某个表格。

提前致谢。非常感谢您回答任何或所有这些问题！

Sub Laster()
    Dim wsSummary As Worksheet
    Dim tbl As ListObject
    Dim lRow As Long
    Dim SearchText As String
    Dim GCell As Range
    SearchText = "Laster"
    Set GCell = Worksheets("Lastkombinationer").Cells.Find(SearchText).Offset(0)
    Set wsSummary = Worksheets("Lastkombinationer")
    lRow = GCell.Row
        For Each tbl In Worksheets("A1.6Laster").ListObjects
            lRow = lRow + 1
            With wsSummary
                .Cells(lRow, "A") = tbl.Name
            End With
        Next tbl
End Sub

表格的实时列表

0 个答案: