Reihe alternativ in einem Excel-Sheet

Question

einlegen habe ich ein Excel-Blatt, das wie folgt aussieht:

Ich mag unter jeder gefüllten Zellenreihe (oder Zelle) einzufügen. So:

Ich habe Tausende von Datensätzen, so dass Sie dies automatisch tun müssen. Wie kann ich das erreichen?

Vielen Dank im Voraus!

Answer 1

Ein Nicht-VBA Ansatz ein neues Blatt zu machen wäre, und diese Formel in A1 eingeben:

=INDEX(Sheet1!A:A, ROUNDUP(ROW(A1)/2, 0)) 

Dann Wählen Sie A1 und A2 (A2 bleibt leer), kopieren Sie sie, wählen Sie die doppelte Anzahl an Zeilen wie in Tabelle1 und fügen Sie sie ein.

Wenn Sie nur Werte wünschen, können Sie Spalte A auswählen und kopieren, dann Sonderzeichen einfügen und nur Werte einfügen.

Answer 2

Sie es mit dem folgenden Code in VBA tun könnten:

Sub doIt() 

    Dim numRows As Long 
    Dim i As Long 

    numRows = ActiveSheet.UsedRange.Rows.Count 

    For i = numRows To 2 Step -1 
     ActiveSheet.Rows(i).Insert Shift:=xlDown 
    Next i 

End Sub 

Answer 3

1. Wählen Sie den Raw, der die Daten enthält, die Sie trennen möchten, um jeweils 1 Zelle.
2. drücken Sie F5.
3. klicken Sie auf spezielle.
4. Klicken Sie im Dialogfeld Gehe zu Spezial auf "Konstante".
5. rechts 1 der ausgewählten Zelle klicken und

Answer 4

Alternativ legen, fand ich die folgende Lösung von https://www.pcmag.com/article/149833/insert-alternate-blank-rows-in-excel

Sie die leeren Zeilen separat erstellen und sie dann mit den vorhandenen Zeilen verschachteln durch Sortieren. Fügen Sie zu Beginn eine neue Spalte links neben der vorhandenen Spalte A ein. Geben Sie 1 in Zelle A1 ein und markieren Sie Spalte A bis zur letzten Zeile, die Daten enthält. Wählen Sie im Menü Bearbeiten die Option Füllung | Serie und klicken Sie auf OK. Spalte A sollte jetzt Zahlen von 1 bis zur Gesamtzahl der Zeilen enthalten. Drücken Sie Strg-C, um diese Zellen in die Zwischenablage zu kopieren, klicken Sie in die Zelle unterhalb der letzten und drücken Sie Strg-V zum Einfügen. Markieren Sie nun den gesamten Datenbereich, einschließlich der neuen Zeilen mit nur einer Zahl in Spalte A. Wählen Sie im Menü Daten die Option Sortieren, und wählen Sie im sich öffnenden Dialogfeld die Option Keine Kopfzeile. Wählen Sie unter Sortieren nach die Option Spalte A aus, wählen Sie unter Dann die Spalte B und klicken Sie auf OK. Zum Schluss löschen Sie Spalte A. Sie haben jetzt eine leere Zeile nach jeder der ursprünglichen 1.000 Zeilen.

Da Leerzeilen oft Probleme mit Diagrammen oder Berechnungen verursachen können, möchten Sie sie möglicherweise schnell entfernen. Sie können eine ähnliche Technik verwenden.

Fügen Sie erneut eine neue Spalte links von Spalte A ein und füllen Sie eine Reihe von 1 bis zum Ende der Daten. Markieren Sie den gesamten Datenbereich und sortieren Sie nach Spalte B (die erste Spalte mit echten Daten). Dadurch werden alle leeren Zeilen zusammen gruppiert. Heben Sie als Nächstes den Datenbereich hervor und sortieren Sie ihn erneut nach Spalte A. Die leeren Zeilen sind nicht mehr vorhanden und Ihre Daten werden in der ursprünglichen Reihenfolge wiederhergestellt. Entfernen Sie schließlich Spalte A.