Question

我有一张表＆＃34; Missing＆＃34;。这张表通常是我另一张表中的数据的一部分＆＃34;数据＆＃34;。

我希望我遗失的工作表的内容始终包含在表格中。

我尝试了下面的代码，

   Sub LoopingThroughTable()
         Sheets("Missing").ListObjects.Add(xlSrcRange, Range("$B$1:$D$16"), , xlYes).Name = _
             "Table19"       
         Sheets("Missing").ListObjects("Table19").TableStyle = "TableStyleLight12"
    End Sub

但是使用此代码，我需要始终提及范围。正如我之前所说，由于它是来自另一张纸的数据，因此行长度可能会有所不同。

所以eevrytime我从我的表数据中提取数据到结果，我一直想只为可用内容绘制一个表。

任何人都可以帮忙，我怎么能这样做？

Answer 1

只要关于＆＃34;缺失的数据＆＃34;工作表从B1开始，您可以为最后一行分配一个变量，并在该范围内使用该变量。所以你的代码将是：

Sub LoopingThroughTable()
    lastrow = Worksheets("Missing").Cells(Rows.Count, "B").End(xlUp).Row
    Sheets("Missing").ListObjects.Add(xlSrcRange, Range("$B$1:$D$" & lastrow), , xlYes).Name = _
         "Table19"       
    Sheets("Missing").ListObjects("Table19").TableStyle = "TableStyleLight12"
End Sub

我还假设当前代码有效。

根据数据为工作表创建表

1 个答案: