Ich habe ein Excel-Blatt, in dem sich alle Daten in Spalte A befinden. Ich möchte aus jeweils 9 Zellen separate Spalten erstellen
Verschieben von Zellen in Spalten
Ist VBA hierfür die beste Möglichkeit?
Antwort1
Ich schlage vor, Sie versuchen es mit Formeln.
Wie zum Beispiel =IF(OFFSET($A$1,MOD(COLUMN(A1)-1,9)+(ROW(A1)-1)*9,)=0,"",OFFSET($A$1,MOD(COLUMN(A1)-1,9)+(ROW(A1)-1)*9,)).
Antwort2
Mit der Funktion können Sie =INDEX()Ihre Daten neu organisieren.
Wenn Ihre Eingabe beispielsweise in einer Arbeitsblattspalte beginnt, Adie bei Zelle beginnt A1, und Sie möchten, dass die obere linke Zelle Ihrer Ausgabe in Zelle steht, C10verwenden Sie die folgende Formel in ZelleC10
=INDEX($A:$A,9*(ROW()-ROW($C$10))+1+COLUMN()-COLUMN($C$10))
Wenn Sie möchten, dass die Ausgabe nicht 9 Spalten breit ist, ersetzen Sie die 9 in der Formel durch den von Ihnen gewählten Wert. Wenn die Eingabe nicht in Zeile 1 beginnt,
Diese Formel kann dann in den Rest Ihres Ausgabebereichs kopiert werden.
Wenn Sie Excel für Microsoft 365 oder Excel 2021 haben, können Sie die von @Emily vorgeschlagene Art der Ersetzung einbauen, jedoch ohne die umständliche Wiederholung, indem Sie die =LET()Funktion verwenden. Beispiel:
=LET(cell,INDEX($A:$A,9*(ROW()-ROW($C$10))+1+COLUMN()-COLUMN($C$10)),IF(cell=0,"",cell))
oder
=LET(cell,INDEX($A:$A,9*(ROW()-ROW($C$10))+1+COLUMN()-COLUMN($C$10)),IF(ISBLANK(cell),"",cell))