Pergunta : Valores da matriz do converso às colunas

Re MS Excel2003
Help eu tenho uma grande grade dos dados de que eu gostaria às colunas do convert
to (para põr em uma base de dados). termos simples do

In eu tenho o
(alfa e numerics da nota)/> X
A 1 de Y Z etc. 2 3
B 4 5 6
C 7 8 9
etc

Which que eu preciso de converter (anotar cada numérico alfa está em uma pilha separada) à realidade do
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 eu tenho algo como 600 fileiras e 30 colunas que compo os dados grid.
I b grato para toda a ajuda neste satisfazem. Thanks
 class= do

Resposta : Valores da matriz do converso às colunas

Isto parece trabalhar.  Usa transferências da disposição às coisas da velocidade longitudinalmente.
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 secundário ()
    
    Arr não ofuscante como a variação
    R não ofuscante como por muito tempo, c como por muito tempo
    Resultados não ofuscantes () como a variação
    DestR não ofuscante como por muito tempo
    
    arr = escala (“a1”, escala (“a1”) .SpecialCells (xlCellTypeLastCell)). Valor
    ReDim resulta (1 (UBound (arr, 1) - 1) * (UBound (arr, 2) - 1), 1 a 3) como a variação
    
    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)
        Em seguida
    Em seguida
    
    Worksheets.Add
    Pilhas (1, 1). Resize (UBound (resultados, 1), UBound (resultados, 2)) = resultados
    
    Pilhas (1, 1). Sorte Key1: =Cells (1, 1), Key2: =Cells (1, 2), Order1: =xlAscending, Order2: =xlAscending, _
        Encabeçamento: =xlNo
        
Submarino da extremidade
Outras soluções  
 
programming4us programming4us