Startet den Bereich und den Endbereich einer vertikal verbundenen Zelle mit Excel unter Verwendung von VBA

Unterhalb des Makros werden alle Blätter in einer Arbeitsmappe durchsucht und zusammengefügte Zellen gefunden, deren Zusammenführung aufgehoben und der ursprüngliche Wert für alle verbundenen Zellen verwendet.

Dies wird häufig für DB-Anwendungen benötigt, also wollte ich mit Ihnen teilen.

Wenn Sie die Adresse einer der Zellen im zusammengeführten Bereich kennen, können Sie einfach den Offset aus diesem Bereich auswählen und die Zeile / Spalte abrufen:

Der obige Code löst Fehler aus, wenn die Offset-Zeile nicht ausgewählt werden kann (dh wenn die zusammengeführten Zeilen von A1 bis A1 sind). Daher sollten Sie eine Fehlerbehandlung hinzufügen, die dem Code sagt, ob er die oberen Zeilen ausgleichen kann muss 1 sein und wenn es nicht gehen kann, muss die untere Reihe 65.536 sein. Dieser Code ist auch nur eindimensional, so dass Sie möglicherweise auch die x-Achse hinzufügen möchten.

Wenn Sie die Zellenreferenzen als Zeichenfolgen verwenden möchten, können Sie etwas wie diese verwenden, wobei Location, StartCell und EndCell String-Variablen sind.

Wenn Sie sie als Bereiche festlegen möchten, können Sie dies hinzufügen, wobei StartRange und EndRange Range-Objekte sind.

Angenommen, Sie haben B2 bis B50 zusammengeführt.

Dann beginnt die Zellenadresse mit:

Die Endzellenadresse lautet:

Sie können die Adresse einer beliebigen Zelle des zusammengeführten Bereichs anstelle von B2 in den obigen Code einfügen.