Question : Valeurs de matrice de converti aux colonnes

La milliseconde re Excel2003
Help j'ai une grande grille des données que je voudrais aux colonnes du convert
to (pour mettre dans une base de données). des limites simples du

In j'ai le
A 1 du
Z etc. du
(alpha et numériques de note) 2 3
B 4 5 6
C 7 8 9
etc

Which que je dois convertir en (noter chaque alpha numérique est dans une cellule séparée)
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

en réalité j'ai quelque chose comme 600 rangées et 30 colonnes composant les données grid.
I b reconnaissant pour n'importe quelle aide sur ceci satisfont. Thanks
class= de

Réponse : Valeurs de matrice de converti aux colonnes

Ceci semble fonctionner.  Il emploie des transferts de rangée aux choses de vitesse le long.

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 secondaire () Faible arr comme variante Faible r en tant que longtemps, c en tant que longtemps Faibles résultats () comme variante Faible DestR en tant que longtemps arr = gamme (« a1 », gamme (« a1 ») .SpecialCells (xlCellTypeLastCell)). Valeur ReDim résulte (1 (UBound (arr, 1) - 1) * (UBound (arr, 2) - 1), 1 à 3) comme variante Pour r = 2 à UBound (arr, 1) Pour c = 2 à UBound (arr, 2) DestR = DestR + 1 Résultats (DestR, 1) = arr (1, c) Résultats (DestR, 2) = arr (r, 1) Résultats (DestR, 3) = arr (r, c) Après Après Worksheets.Add Cellules (1, 1).Resize (UBound (résultats, 1), UBound (résultats, 2)) = résultats Cellules (1, 1).Sort Key1 : =Cells (1, 1), Key2 : =Cells (1, 2), Order1 : =xlAscending, Order2 : =xlAscending, _ En-tête : =xlNo Sous-marin d'extrémité