Questione : Valori della tabella del convertito alle colonne

Re ms Excel2003
Help ho una grande griglia dei dati che gradirei alle colonne del convert
to (per mettere in una base di dati). termini semplici del

In ho
A 1 del
la Z ecc del
(alfa e caratterri numerici della nota) 2 3
B 4 5 6
C 7 8 9
etc

Which che devo convertire (notare ogni alfa numerico è in una cellula separata) in
X A 1
X A 2
X A 3
Y la B 4
Y la B 5
Y la B 6
Z la C 7
Z la C 8
Z la C 9
etc

in realtà ho qualcosa come 600 file e 30 colonne che compongono i dati grid.
I b riconoscente per tutto l'aiuto su questa soddisfanno. Thanks
 class= del

Risposta : Valori della tabella del convertito alle colonne

Ciò sembra funzionare.  Usa i trasferimenti di allineamento nelle cose di velocità avanti.
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:

FlatList secondario ()
    
    Arr fioco come variante
    R fioca come lungamente, c come lungamente
    Risultati fiochi () come variante
    DestR fioco come lungamente
    
    arr = gamma (“a1„, gamma (“a1„) .SpecialCells (xlCellTypeLastCell)). Valore
    ReDim risulta (1 (UBound (arr, 1) - 1) * (UBound (arr, 2) - 1), 1 - 3) come variante
    
    Per r = 2 a UBound (arr, 1)
        Per c = 2 a UBound (arr, 2)
            DestR = DestR + 1
            Risultati (DestR, 1) = arr (1, c)
            Risultati (DestR, 2) = arr (r, 1)
            Risultati (DestR, 3) = arr (r, c)
        Dopo
    Dopo
    
    Worksheets.Add
    Cellule (1, 1).Resize (UBound (risultati, 1), UBound (risultati, 2)) = risultati
    
    Cellule (1, 1).Sort Key1: =Cells (1, 1), Key2: =Cells (1, 2), Order1: =xlAscending, Order2: =xlAscending, _
        Intestazione: =xlNo
        
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us