Todd erstellt eine Comic-Inventarliste und möchte, dass jede Zelle in Spalte A den dreimal wiederholten Text „Batman (1940) 0“ enthält, gefolgt von dreimal wiederholter „Batman (1940) 1“, Batman (1940) 2 „

3-mal wiederholt, bis „Batman (1940) 700“ 3-mal wiederholt. Das sind 2.103 einzelne Zeilen, aber Todd ist sich nicht sicher, wie er solche Muster beim Kopieren oder Füllen von Zellen wiederholen soll.

Es gibt tatsächlich einige Möglichkeiten, wie Sie sich einer solchen Aufgabe nähern können. Eine Möglichkeit besteht darin, einfach eine einzelne Sequenz zu erstellen und dann zweimal zu kopieren und einzufügen.

Hier ist die allgemeine Idee:

  1. Geben Sie in Zelle A1 Folgendes ein: Batman (1940) 0. Wählen Sie Zelle A1 aus.

  2. Ziehen Sie den Füllgriff nach unten in Zelle A701. Dies sollte Ihnen eine vollständige Sequenz von „Batman (1940) 0“ bis „Batman (1940) 700“ geben, und die Zellen im Bereich sollten weiterhin ausgewählt sein.

  3. Drücken Sie Strg + C, um den Bereich in die Zwischenablage zu kopieren.

  4. Fügen Sie den Bereich in Zelle A702 und dann erneut in Zelle A1403 ein.

  5. Spalte A sortieren.

Dieser ganze Prozess geht sehr schnell; Ich war damit in ungefähr 45 Sekunden fertig. Es gibt jedoch einen Nachteil: Nach dem Sortieren erhalten Sie die Reihenfolge der Zellen nicht in numerischer Reihenfolge basierend auf der Nummer am Ende des Textes. Wenn Sie dies sicherstellen möchten, geben Sie Ihr erstes Comic-Buch (in Zelle A1) als „Batman (1940) 000“ ein. Wenn Sie drei Ziffern für die Endnummer verwenden, wird die Sortierung einwandfrei ausgeführt.

Es gibt noch einen anderen Ansatz, der sich auch auf den Füllgriff stützt. Befolgen Sie diese allgemeinen Schritte:

  1. Geben Sie in Zelle A1 Folgendes ein: Batman (1940) 0. Geben Sie in Zelle A4 Folgendes ein: Batman (1940) 1. Wählen Sie die Zellen A1: A6 aus. (Dies ist sehr wichtig.)

  2. Ziehen Sie den Füllgriff nach unten in Zelle A2103. Dies sollte Ihnen eine vollständige Sequenz von „Batman (1940) 0“ bis „Batman (1940) 700“ mit zwei leeren Zellen nach jedem Element in der Sequenz geben, und die Zellen im Bereich sollten weiterhin ausgewählt sein.

  3. Drücken Sie F5. Excel zeigt das Dialogfeld Gehe zu an.

  4. Klicken Sie auf die Schaltfläche Spezial. Excel zeigt das Dialogfeld Gehe zu Spezial an.

(Siehe Abbildung 1.)

  1. Stellen Sie sicher, dass das Optionsfeld Leerzeichen ausgewählt ist.

  2. Klicken Sie auf die Schaltfläche OK. Excel ändert die Auswahl so, dass nur die leeren Zellen im Bereich ausgewählt werden.

  3. Geben Sie in die Formelleiste die folgende Formel ein: = A1. Drücken Sie Strg + Eingabetaste. Dadurch wird die Formel in alle leeren Zellen kopiert.

  4. Wählen Sie die Zellen A1: A2103 aus.

  5. Drücken Sie Strg + C, um den Bereich in die Zwischenablage zu kopieren.

  6. Verwenden Sie Paste Special, um Werte einzufügen. Dadurch werden die Formeln wieder in Werte konvertiert.

Ein dritter Ansatz, den ich sehr schnell umsetze, ist die Verwendung einer Formel von Anfang an:

  1. Geben Sie in Zelle A1 die folgende Formel ein: * = „Batman (1940)

“ & INT ((ROW () – 1) / 3) *. Wählen Sie die Zellen A1: A2103 aus.

  1. Drücken Sie Strg + D. Die Formel in Zelle A1 wird in den Rest des ausgewählten Bereichs kopiert.

  2. Drücken Sie Strg + C, um den Bereich in die Zwischenablage zu kopieren.

  3. Verwenden Sie Paste Special, um Werte einzufügen. (Dadurch werden die Formeln wieder in Werte konvertiert.)

Wenn Sie solche Sequenzen häufig erstellen müssen, werden Sie einen makrobasierten Ansatz zu schätzen wissen. Das Folgende ist einfach: Platzieren Sie die gewünschte Textsequenz in Spalte A:

Sub ComicSequence()

Dim sTemp As String     Dim J As Integer     Dim K As Integer

sTemp = "Batman (1940) "

For J = 0 To 700         For K = 1 To 3             Cells(J * 3 + K, 1).Value = sTemp & J         Next K     Next J End Sub

Um ein anderes Vorwort als Ihre Zellenwerte zu verwenden, müssen Sie lediglich den Wert ändern, den Sie der sTemp-Zeichenfolge zuweisen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (9410) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365.