Frage : Bekehrtmatrixwerte zu den Spalten

Re-Mitgliedstaat Excel2003
Help habe ich ein großes Rasterfeld von Daten, die ich convert
to zu den Spalten möchte (sich in eine Datenbank setzen).

In einfache Ausdrücke habe ich
(Anmerkungsalphas und -zahlunger)
X-Yz usw.
A 1 2 3
B 4 5 6
C 7 8 9
etc

Which, das ich in (jedes Alphanumerische merken ist in einer unterschiedlichen Zelle)
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

umwandeln muss, in Wirklichkeit ich etwas wie 600 Reihen habe und 30 Spalten, welche die Daten grid.
I wurden b bilden, das für jede mögliche Hilfe auf diesem dankbar ist, gefallen. Thanks

Antwort : Bekehrtmatrixwerte zu den Spalten

Dieses scheint zu arbeiten.  Es verwendet Reihenübertragungen auf Geschwindigkeitssachen entlang.
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:

VorFlatList ()
    
    Schwaches arr als Variante
    Schwaches r als lang, c als lang
    Schwache Resultate () als Variante
    Schwaches DestR als lang
    
    arr = Strecke („a1“, Strecke („a1“) .SpecialCells (xlCellTypeLastCell)). Wert
    ReDim resultiert (1 (UBound (arr, 1) - 1) * (UBound (arr, 2) - 1), 1 bis 3) als Variante
    
    Für r = 2 zu UBound (arr, 1)
        Für c = 2 zu UBound (arr, 2)
            DestR = DestR + 1
            Resultate (DestR, 1) = arr (1, c)
            Resultate (DestR, 2) = arr (r, 1)
            Resultate (DestR, 3) = arr (r, c)
        Zunächst
    Zunächst
    
    Worksheets.Add
    Zellen (1, 1).Resize (UBound (Resultate, 1), UBound (Resultate, 2)) = Resultate
    
    Zellen (1, 1).Sort Key1: =Cells (1, 1), Key2: =Cells (1, 2), Order1: =xlAscending, Order2: =xlAscending, _
        Überschrift: =xlNo
        
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us