VBA Excel通过特定的表格格式化

我在工作表上有77个表格，我只想格式化特定的表格。

当使用特定的命名表执行循环时，我该如何格式化循环？

例如，我想更改表2，表4，表5和表6中的第二列（本例的缩写列表）。

到目前为止我有：

For Table2, Table4, Table 5 In ws.ListObjects 

在错误恢复下一步

 ws.ListObjects("Table").ListColumns(2).DataBodyRange.Style = "Comma" ws.ListObjects("Table").ListColumns(2).DataBodyRange.NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""??_);_(@_)" Next On Error GoTo 0 

有关如何解决这个问题的任何build议？

Answer 1

 Sub test() Dim AllTableNames As String Dim TableNames As Variant Dim ws As Worksheet Dim i As Long Set ws = ActiveSheet AllTableNames = "Table2,Table4,Table5,Table6" TableNames = Split(AllTableNames, ",") For i = LBound(TableNames) To UBound(TableNames) ws.ListObjects(TableNames(i)).ListColumns(2).DataBodyRange.Style = "Comma" ws.ListObjects(TableNames(i)).ListColumns(2).DataBodyRange.NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""??_);_(@_)" Next i End Sub