EXCEL-VBA - Schleife durch die Zellen in eine Zeile, wenn nicht leer, dann Zelle kopieren-Wert in eine andere Zeile, bis die nächste Zeile nicht leer ist
Ich überlege mir, ein wenig code schreiben, um die Daten zu kopieren der Zeile in die nächste, bis die nächste Zeile nicht leer ist. Angenommen werden alle in der Zeile 1 sind überschriften.
Daten wie:
A2 ClientA B2 Product1 C2 Price D2 Quantity E2 Cost
A3 B3 C3 Price D3 Quantity E3 Cost
A4 B4 C4 Price D4 Quantity E4 Cost
A5 ClientB B5 Product2 C5 Price D5 Quantity E5 Cost
A6 B6 C6 Price D6 Quantity E6 Cost
A7 ClientC B7 Product3 C7 Price D7 Quantity E7 Cost
A8 B8 C8 Price D8 Quantity E8 Cost
A9 B9 C9 Price D9 Quantity E9 Cost
A3-und A4-füllen mit ClientA und B3 und B4 wird Produkt Einfüllen, bis die nächste Zeile nicht leer ist.
Den ich gesucht habe zu finden eine ähnliche Frage, aber ich habe keine Ahnung, wie es zu schreiben.
Ende Ergebnisse werden wie:
A2 ClientA B2 Product1 C2 Price D2 Quantity E2 Cost
A3 ClientA B3 Product1 C3 Price D3 Quantity E3 Cost
A4 ClientA B4 Product1 C4 Price D4 Quantity E4 Cost
A5 ClientB B5 Product2 C5 Price D5 Quantity E5 Cost
A6 ClientB B6 Product2 C6 Price D6 Quantity E6 Cost
A7 ClientC B7 Product3 C7 Price D7 Quantity E7 Cost
A8 ClientC B8 Product3 C8 Price D8 Quantity E8 Cost
A9 ClientC B9 Product3 C9 Price D9 Quantity E9 Cost
Jemand eine Idee, was der VBA-code sein?
Du musst angemeldet sein, um einen Kommentar abzugeben.
Wollte man VBA verwenden, können Sie diese verwenden.
Ich war mir nicht sicher, wie Sie Sie finden wollten, die Letzte Zeile mit Daten, damit ich eine variable, die Sie selbst ändern können, es entspricht der Zeile. Die erste For-Schleife mit Z wird eine Schleife durch Spalte A(1) und Spalte B(2), innerhalb dieser Schleife haben wir eine weitere For-Schleife, um durch die Zellen und geben Sie die zuletzt gesehen Wert, wenn der Wert der Zelle ist "".
Hier ist ein weiterer Weg, es zu tun, ohne VBA.
Beispiel: WENN A2 leer ist =A1
Kein VBA benötigt.
Schreiben Sie diese Formel in einer hilfsspalte:
=IF(ISBLANK(A2),F1,A2)
Übernimmt die hilfsspalte in Spalte f Ziehen Sie diese nach unten das dataset und kopieren Sie dann die Werte in der ursprünglichen Spalte. Wiederholen Sie diesen Vorgang für die Spalte B.
Müssen Sie Folgendes tun:
SheetName: der name der Tabelle, die Sie möchten, verarbeitet
arColumns = Array("A", 2, 3): Fügen Sie die Spalte mit zahlen oder Buchstaben, die Sie wollen gefüllt, die auf dieses array
UBound(arColumns)
undUBound(arColumns, 1)
Gegenzug der Letzte index für die erste dimension eines Arrays.