Question : Cellule et fente d'Unmerge dans des rangées

Salut les chers experts, le

I avaient recherché un moment mais ne pourraient pas étendre mon doigt sur des données prêtes de feuille jointe d'answer.
In est organisés par rangée, quelques cellules data.
afin de travailler avec cela des données ces valeurs devraient unmerged et le spllit en colonne appropriée de rows.
The est B. Il a un pendant dans des données fusionnées par G. de colonne en d'autres cellules peut unmerged trop si cela simplifierait des choses un espoir de bit.
I que l'exemple rend des choses claires, et également ce ceci est possible.
Thanks. class= " lastRow de
>Attachments de " nom " de class= de
class= " valeur " de
>
class= " fileInfo " de
le title= " de " nom de fichier de class= " de tobeunmerged.xls le class= (23 KBS)  Javascript de href= " de " attachmentDetails de class= " de (type de dossier détails)  
class= " description " de
Fusion à l'unmerge example
le class= de
de >
class= de

Réponse : Cellule et fente d'Unmerge dans des rangées

Supposant que vous avez des titres dans la rangée 1 pour toutes les colonnes vous voiture environ, ceci semble fonctionner.  Il « unmerges » toutes les cellules.  (Les cellules ne sont pas vraiment fusionnées dans le sens d'Excel, naturellement…)

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 secondaire ()
    
    Faible LastR en tant que longtemps, LastC en tant que longtemps
    Faible arr comme variante
    Faible r en tant que longtemps, c en tant que longtemps
    Faible CellContents comme variante
    Faible MaxRows en tant que longtemps
    Faible DestR en tant que longtemps
    
    Avec ActiveSheet
        LastR =. Cellules (. Rows.Count, 1).End (xlUp). Rangée
        LastC =. Cellules (1. Columns.Count). Extrémité (xlToLeft). Colonne
        arr =. Gamme (. Cellules (1, 1). Cellules (LastR, LastC)). Valeur
    Extrémité avec
    
    Worksheets.Add
    DestR = 1
    
    Pour r = 1 à UBound (arr, 1)
        MaxRows = 0
        Pour c = 1 à UBound (arr, 2)
            Si arr (r, c) <> "" alors
                CellContents = s'est dédoublé (arr (r, c), Chr (10))
                Cellules (DestR, c). Remettre à la côte (UBound (CellContents) + 1, 1) = Application.Transpose (CellContents)
                Si (UBound (CellContents) + 1) > MaxRows puis MaxRows = (UBound (CellContents) + 1)
            Finir si
        Après
        DestR = DestR + MaxRows
    Après
    
    MsgBox « fait »
    
Sous-marin d'extrémité
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us