Cuestión : Célula y fractura de Unmerge en filas

Hola los estimados expertos,

I han estado buscando durante algún tiempo pero no podrían poner mi dedo en datos listos de la hoja atada de answer.
In se organizan por fila, algunas células data.
para trabajar con eso los datos esos valores deben unmerged y el spllit en columna relevante de rows.
The es B. Tiene un colgante en datos combinados G. de la columna en otras células puede unmerged también si ése simplificaría cosas una esperanza de bit.
I que el ejemplo hace cosas claras, y también ése esto es possible.
Thanks. class= " lastRow del
>Attachments del " nombre " del class= del class= " valor " del
del >
class= " fileInfo " del
el title= " del " nombre de fichero del class= " del tobeunmerged.xls el class= (23 KB)  Javascript del href= " de los " attachmentDetails del class= " del (tipo de archivo detalles)  
class= " descripción " del
Fusión al unmerge example
el class= de
del >
class= del

Respuesta : Célula y fractura de Unmerge en filas

Si se asume que usted tiene títulos en la fila 1 para todas las columnas usted coche alrededor, esto parece trabajar.  Él “unmerges” todas las células.  (Las células no se combinan verdad en el sentido de Excel, por supuesto…)

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 secundario ()
    
    LastR dévil como de largo, LastC como de largo
    Arr dévil como variante
    R dévil como de largo, c como de largo
    CellContents dévil como variante
    MaxRows dévil como de largo
    DestR dévil como de largo
    
    Con ActiveSheet
        LastR =. Células (. Rows.Count, 1).End (xlUp). Fila
        LastC =. Células (1. Columns.Count). Extremo (xlToLeft). Columna
        arr =. Gama (. Células (1, 1). Células (LastR, LastC)). Valor
    Extremo con
    
    Worksheets.Add
    DestR = 1
    
    Para r = 1 a UBound (arr, 1)
        MaxRows = 0
        Para c = 1 a UBound (arr, 2)
            Si arr (r, c) <> "" entonces
                CellContents = partió (el arr (r, c), Chr (10))
                Células (DestR, c). Volver a clasificar según el tamaño (UBound (CellContents) + 1, 1) = Application.Transpose (CellContents)
                Si (UBound (CellContents) + 1) > MaxRows entonces MaxRows = (UBound (CellContents) + 1)
            Terminar si
        Después
        DestR = DestR + MaxRows
    Después
    
    MsgBox “hecho”
    
Submarino del extremo
Otras soluciones  
 
programming4us programming4us