Frage : Unmerge Zelle und Spalte in Reihen

Hallo gesucht liebe Experten,

I, für eine Weile aber konnten meinen Finger nicht auf bereiten answer.
In legen Daten des angebrachten Blattes organisiert pro Reihe, sollten einige Zellen icontain vermischtes data.
, zwecks mit dem zu arbeiten Daten jene Werte unmerged und spllit in rows.
The relevante Spalte ist B. Es hat einen Anhänger in vermischten Daten der Spalte G. in anderen Zellen kann auch unmerged, wenn das Sachen eine bit.
I Hoffnung vereinfachen, die das Beispiel Sachen klarstellt, und auch das dieses possible.
Thanks. ist
Attachments:
tobeunmerged.xls (23 KBS)  (Akten-Art Details)  
Mischen zum unmerge example

Antwort : Unmerge Zelle und Spalte in Reihen

Annehmend, dass Sie Überschriften in Reihe 1 für alle Spalten Sie Auto ungefähr haben, scheint dieses zu arbeiten.  Es „unmerges“ alle Zellen.  (Die Zellen werden nicht wirklich in der Excel-Richtung, selbstverständlich… vermischt)

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

VorRedoList ()
    
    Schwaches LastR als lang, LastC als lang
    Schwaches arr als Variante
    Schwaches r als lang, c als lang
    Schwaches CellContents als Variante
    Schwaches MaxRows als lang
    Schwaches DestR als lang
    
    Mit ActiveSheet
        LastR =. Zellen (. Rows.Count, 1).End (xlUp). Reihe
        LastC =. Zellen (1. Columns.Count). Ende (xlToLeft). Spalte
        arr =. Strecke (. Zellen (1, 1). Zellen (LastR, LastC)). Wert
    Ende mit
    
    Worksheets.Add
    DestR = 1
    
    Für r = 1 zu UBound (arr, 1)
        MaxRows = 0
        Für c = 1 zu UBound (arr, 2)
            Wenn arr (r, c) <> "" dann
                CellContents = spaltete auf sich (arr (r, c), Chr (10))
                Zellen (DestR, c). Die Größe neu bestimmen (UBound (CellContents) + 1, 1) = Application.Transpose (CellContents)
                Wenn (UBound (CellContents) + 1) > MaxRows dann MaxRows = (UBound (CellContents) + 1)
            Beenden wenn
        Zunächst
        DestR = DestR + MaxRows
    Zunächst
    
    MsgBox „getan“
    
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us