Fråga : Omvändmatrisen värderar till kolonner

Beträffande ms Excel2003
Help jag har ett stort raster av data som jag skulle något liknande till kolonner för convert
to (att sätta in i en databas). enkel

In benämner mig
(notera alfabetisken och numerics),/> X
A 1 för Y Z etc. 2 3
B 4 5 6
C 7 8 9
etc

Which som jag behöver att konvertera (notera varje alpha numeriskt är i en separat cell) verklighet för
X A 1
X A 2
X A 3
Y B 4
Y B 5
Y B 6
Z C 7
Z C 8
Z C 9
etc

In, jag har något att gilla 600 ror, och danande för 30 kolonner upp datan grid.
I skulle b som är tacksamma för någon hjälp på detta, behar. Thanks
 " klar "

Svar : Omvändmatrisen värderar till kolonner

Detta verkar att vara funktionsdugligt.  Det använder samlingöverföringar för att rusa saker along.
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:

UnderFlatList ()
    
    Dunkel arr som Variant
    Dunkelt r som Long, c som Long
    Dunkla resultat () som Variant
    Dunkla DestR som Long
    
    arr = spänner (”a1”, spänner (”a1”) .SpecialCells (xlCellTypeLastCell)). Värdera
    ReDim resulterar (1 (UBound (arr, 1) - 1) * (UBound (arr, 2) - 1), 1 till 3) som Variant
    
    För r = 2 till UBound (arr, 1)
        För c = 2 till UBound (arr, 2)
            DestR = DestR + 1
            Resultat (DestR, 1) = arr (1, c)
            Resultat (DestR, 2) = arr (r, 1)
            Resultat (DestR, 3) = arr (r, c)
        Därefter
    Därefter
    
    Worksheets.Add
    Celler (1, 1). Resize (UBound (resultat, 1), UBound (resultat, 2)) = resultat
    
    Celler (1, 1). Sortera Key1: =Cells (1, 1), Key2: =Cells (1, 2), Order1: =xlAscending Order2: =xlAscending _,
        Titelrad: =xlNo
        
Avsluta suben
Andra lösningar  
 
programming4us programming4us