excel vba：列列表的数字格式答案

【问题标题】：excel vba: Numberformat for a list of Columnsexcel vba：列列表的数字格式
【发布时间】：2019-10-25 13:26:40
【问题描述】：

在列列表上使用 numberFormat 是否有更短的方法？例如我有

.Columns("C").NumberFormat = "#,##0.00_)"
.Columns("F").NumberFormat = "#,##0.00_)"
.Columns("G").NumberFormat = "#,##0.00_)"

类似的东西（不起作用）

 Range(.Columns(3), .Columns(6), .Columns(9)).NumberFormat = "#,##0.00_)"

感谢您的帮助，呵呵

【问题讨论】：

【解决方案1】：

类似的东西，可以为你工作。

Dim r As Excel.Range

Set r = Union(ActiveSheet.Columns(1), ActiveSheet.Columns(3), ActiveSheet.Columns(5))
r.Select

【讨论】：

【解决方案2】：

我像这样使用 Nathan_Sav 的（thankU）解决方案：

   Dim r As Excel.Range
   Set r = Union(.Columns(3), .Columns(6), .Columns(9))
   r.NumberFormat = "#,##0.00_)"

【讨论】：

【解决方案3】：

另一种选择

Dim col
For Each col In Array("A", "B", "C")
    .Columns(col).NumberFormat = "#,##0.00_)"
Next col

但联合更快

【讨论】：