Site Overlay

Kombinieren von Spalten nacheinander in Excel

Wenn Sie dies mit einem Makro tun können, drücken Sie ALT+F8. Erstellen Sie ein neues Makro, fügen Sie den folgenden Code ein, und drücken Sie dann auf Ausführen.

Sub alt_alta_yaz()
Dim i As Integer, Sohn As Long
last = Bereich("a655360"). Ende(3). Rudern
Für i = 2 Bis Bereich("a1"). End(xlToRight). Spalte
Bereich (Zellen (Sohn, i), Zellen (Sohn, i). Ende(xlUp)). Schnittbereich("a655360"). Ende(3)(2, 1)
Weiter i
i = Leer: zuletzt = Leer
Ende Sub