Questione : Cellula e spaccatura di Unmerge nelle file

Ciao i cari esperti, il

I stanno cercando un istante ma non potrebbero porre la mia barretta sui dati pronti del foglio allegato di answer.
In è organizzato per fila, alcune cellule data.
per funzionare con quello dati quei valori dovrebbero unmerged e lo spllit nella colonna relativa di rows.
The è B. Ha un pendente nei dati fusi G. della colonna in altre cellule può unmerged ugualmente se quello abbia facilitato le cose una speranza che di bit.
I l'esempio dichiara le cose ed inoltre quello questo è possible.
Thanks. class= " lastRow del
>Attachments " di nome " del class= del class= " valore " del
il

class= " fileInfo " del
il title= " " di nome di schedario del class= " di tobeunmerged.xls il class= (23 KB)  Javascript " del href= " " dei attachmentDetails del class= di (tipo di lima particolari)  
class= " descrizione " del
Fusione a unmerge example
il class= di
del >
class= del

Risposta : Cellula e spaccatura di Unmerge nelle file

Supponendo che avete intestazioni nella fila 1 per tutte le colonne voi automobile circa, questo sembra funzionare.  Esso “unmerges„ tutte cellule.  (Le cellule allineare non sono fuse nel senso di Excel, naturalmente…)

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:

RedoList secondario ()
    
    LastR fioco come lungamente, LastC come lungamente
    Arr fioco come variante
    R fioca come lungamente, c come lungamente
    CellContents fioco come variante
    MaxRows fioco come lungamente
    DestR fioco come lungamente
    
    Con ActiveSheet
        LastR =. Cellule (. Rows.Count, 1).End (xlUp). Fila
        LastC =. Cellule (1. Columns.Count). Estremità (xlToLeft). Colonna
        arr =. Gamma (. Cellule (1, 1). Cellule (LastR, LastC)). Valore
    Estremità con
    
    Worksheets.Add
    DestR = 1
    
    Per r = 1 a UBound (arr, 1)
        MaxRows = 0
        Per c = 1 a UBound (arr, 2)
            Se arr (r, c) <> "" allora
                CellContents = ha spaccato (arr (r, c), Chr (10))
                Cellule (DestR, c). Ridimensionare (UBound (CellContents) + 1, 1) = Application.Transpose (CellContents)
                Se (UBound (CellContents) + 1) > MaxRows allora MaxRows = (UBound (CellContents) + 1)
            Concluder se
        Dopo
        DestR = DestR + MaxRows
    Dopo
    
    MsgBox “fatto„
    
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us