Microsoft Excel – Gibt es eine Möglichkeit, Zeilen in mehreren Spalten durch eine bestimmte Zeilenanzahl aufzuteilen?

Question

Ich arbeite beispielsweise mit Daten, die verschiedene Informationen über Kunden enthalten, und zwar in Spalten, die verschiedene Informationen über sie enthalten. Und das geht mit Tausenden von Kunden weiter. Jetzt muss ich die Zeilen in Gruppen zu je 400 aufteilen und sie neuen Tabellen zuordnen, damit ich sie in eine SMS-Software hochladen und Updates und andere Kampagnen versenden kann. Name | email| Phone Guy [email protected] 50230

Gibt es eine effiziente Möglichkeit, das zu tun? Normalerweise mache ich das manuell und scrolle nach unten, bis ich bei 400 bin, und wähle dann die restlichen Spalten aus. Aber das ist in der Regel ziemlich zeitaufwändig. Also, irgendwelche Ratschläge?

Answer 1

Sofern es nicht bereits eine eindeutige Gruppe von 400 gibt, die durch etwas wie ein leeres Feld gekennzeichnet ist, ist es meiner Meinung nach schwierig, eine integrierte Funktion für diese spezielle Aufgabe zu finden.
Sie können jedoch mithilfe von Makros Ihre eigene erstellen.

Wenn ich Ihr Beispiel also richtig verstehe, wählen Sie eine Zelle aus, gehen dann 400 Zeilen nach unten und wählen sie alle sowie zwei weitere Spalten aus. Der einfachste Weg, dies in einem Makro zu tun, sollte folgender sein:

Sub select400()
selection.Resize(400, 3).Select
End Sub

Anschließend können Sie diesem Makro über das Makrofenster und die Optionen oder mit Hilfe eines anderen Makros eine Verknüpfung zuweisen.

Aber was, wenn Sie keine festgelegte Anzahl von Zeilen oder Spalten wünschen?
Dann könnten Sie die absoluten Werte durch Eingabefelder und Variablen ersetzen, etwa so:

Sub select400()
Dim inpRows As Long, inpColumns As Long
inpRows = InputBox("How many rows to select?")
inpColumns = InputBox("How many columns to select?")
selection.Resize(inpRows, inpColumns).Select
End Sub

Da es jedoch InputBox gibt, sollte es eine ordnungsgemäße Fehlerbehandlung haben. Es stürzt ab, wenn irgendetwas Ungewöhnliches (oder gar nichts) in die Felder geschrieben wird.

Probe:

Ich habe auch zuerst dies ausgeführt:

Sub setShortcut()
Application.OnKey "%{s}", "select400"
End Sub

So stellen Sie ein, dass mein Makro ausgeführt wird, wenn ich ALT + s drücke

Sie können die Automatisierung natürlich noch weiter ausbauen, indem Sie das Makro 400 finden, in ein neues Arbeitsblatt/eine neue Arbeitsmappe schneiden und dann mit neuen Blättern fortfahren lassen, bis Ihnen die Daten ausgehen.

Es ist etwas technischer, kann aber mit ein oder zwei Runden gemacht werden.