Question

我有一个包含84个工作表的工作簿，这些工作表都具有不同数量的数据行。我需要将所有工作表数据转换为表。

我在网上找到了这个宏，我认为如果我选择了所有工作表，它就会起作用，但是没有。

Sub A_SelectAllMakeTable2()
    Dim tbl As ListObject
    Set tbl = ActiveSheet.ListObjects.Add(xlSrcRange, Selection, , xlYes)
    tbl.TableStyle = "TableStyleMedium15"
End Sub

有没有一种方法可以修改它，从而影响整个工作簿？

Answer 1

您可以使用类似这样的内容：

Sub A_SelectAllMakeTable2()
    Dim ws as worksheet
    for each ws in activeworkbook.worksheets
    ws.ListObjects.Add(xlSrcRange, ws.range("A1").Currentregion, , xlYes).TableStyle = "TableStyleMedium15"
    next ws
End Sub

将所有数据转换为工作簿中所有工作表上的表

1 个答案: