Excel VBA: числовой формат для списка столбцов

Question

Есть ли более короткий способ использования numberFormaton списка столбцов? например, у меня есть

.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_)"

спасибо за помощь, dukehh

Answer 1

Нечто подобное может работать на вас.

Dim r As Excel.Range

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

Answer 2

другой вариант

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

, но объединение намного быстрее

Answer 3

Я использовал решение Nathan_Sav (thankU) примерно так:

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