Cuestión : Valores de la matriz del convertido a las columnas

Re ms Excel2003
Help tengo una rejilla grande de los datos que quisiera a las columnas del convert
to (poner en una base de datos). los términos simples del

In tengo
(alfa y los caracteres numéricos de la nota)/> X el
A 1 de Y Z etc 2 3
B 4 5 6
C 7 8 9
etc

Which que necesito convertir (observar cada numérico alfa está en una célula separada) a la realidad del
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 tengo algo como 600 filas y 30 columnas que componían los datos grid.
I b agradecido para cualquier ayuda en esto satisfacen. Thanks
 class= del

Respuesta : Valores de la matriz del convertido a las columnas

Esto aparece trabajar.  Utiliza transferencias del arsenal a las cosas de la velocidad adelante.
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 secundario ()
    
    Arr dévil como variante
    R dévil como de largo, c como de largo
    Resultados déviles () como variante
    DestR dévil como de largo
    
    arr = gama (“a1”, gama (“a1”) .SpecialCells (xlCellTypeLastCell)). Valor
    ReDim resulta (1 (UBound (arr, 1) - 1) * (UBound (arr, 2) - 1), 1 a 3) como variante
    
    Para r = 2 a UBound (arr, 1)
        Para c = 2 a UBound (arr, 2)
            DestR = DestR + 1
            Resultados (DestR, 1) = arr (1, c)
            Resultados (DestR, 2) = arr (r, 1)
            Resultados (DestR, 3) = arr (r, c)
        Después
    Después
    
    Worksheets.Add
    Células (1, 1).Resize (UBound (resultados, 1), UBound (resultados, 2)) = resultados
    
    Células (1, 1).Sort Key1: =Cells (1, 1), Key2: =Cells (1, 2), Order1: El =xlAscending, Order2: el =xlAscending, _
        Jefe: =xlNo
        
Submarino del extremo
Otras soluciones  
 
programming4us programming4us