VBA-Code in einer Zeile mit mehreren Bereichen

0

Muss ich jeden Zellenbereich in eine separate Zeile setzen, so 

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

oder kann ich irgendwie Gruppen von Spalten (von einer bestimmten Zelle bis zum Ende), die nicht nebeneinander liegen, in eine einzelne Zeile einschließen? Dieser Code unten scheint nicht für mich zu funktionieren. 

Range("A6:B,G6:H" & Cells.SpecialCells(xlCellTypeLastCell).Row).HorizontalAlignment = xlLeft
microsoft-excel vba Rayearth
quelle

Antworten:

1

Sie können verwenden Union:

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

Máté Juhász
quelle
1
Ich habe es geändert, um zu arbeiten
Rayearth
Ich habe nach etwas gesucht, um den gesamten Code zu verkürzen, aber ich denke, Ihre Idee entspricht den Kriterien für meine Anfrage. Danke, Mann.
Rayearth