Код VBA в одну строку, включая несколько диапазонов

Question

Должен ли я поместить каждый диапазон ячеек в отдельной строке, как это

Range("A6:B" & Cells.SpecialCells(xlCellTypeLastCell).Row).HorizontalAlignment = xlLeft
Range("G6:H" & Cells.SpecialCells(xlCellTypeLastCell).Row).HorizontalAlignment = xlLeft

или я могу как-то включить группы столбцов (от определенной ячейки до конца), которые не находятся рядом друг с другом в одной строке? Этот код ниже, кажется, не работает для меня.

Range("A6:B,G6:H" & Cells.SpecialCells(xlCellTypeLastCell).Row).HorizontalAlignment = xlLeft

Answer 1

Вы можете использовать Union:

Union(Range("A6:B" & Cells.SpecialCells(xlCellTypeLastCell).Row), Range("G6:H" & Cells.SpecialCells(xlCellTypeLastCell).Row)).HorizontalAlignment = xlLeft