Vraag : Zet matrijswaarden in kolommen om

Re lidstaten Excel2003
Help heb ik een groot net van gegevens datvan ik aan convert
to kolommen zou houden (om in een gegevensbestand te zetten). />In eenvoudige termijnen

(alpha- nota en numerics)
X-Y Z enz.
A1 2 3
B 4 5 6
C 7 8 9
etc
Which I om in (neem van nota elke alpha- numeriek in een afzonderlijke cel) is
X A1
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 werkelijkheid om te zetten/>
I maken B dankbaar voor om het even welke hulp op dit gelieve. Thanks

Antwoord : Zet matrijswaarden in kolommen om

Dit schijnt te werken.  Het gebruikt serieoverdrachten aan snelheidsdingen.
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:

Sub FlatList ()
    
    Schemerige arr als Variant
    Schemerig r zoals lang, c zoals lang
    Verduister Resultaten () als Variant
    Verduister DestR zoals lang
    
    arr = strek me uit („a1“, Waaier („a1“) .SpecialCells (xlCellTypeLastCell)). Waarde
    ReDim vloeit (1 (UBound (arr, 1) - 1) * (UBound (arr, 2) - 1), 1 tot 3) voort als Variant
    
    Voor r = 2 aan UBound (arr, 1)
        Voor c = 2 aan UBound (arr, 2)
            DestR = DestR + 1
            Vloeit (DestR, 1) = arr voort (1, c)
            Vloeit (DestR, 2) = arr voort (r, 1)
            Vloeit (DestR, 3) = arr voort (r, c)
        Daarna
    Daarna
    
    Worksheets.Add
    Cellen (1, 1). Resize (UBound (Resultaten, 1), UBound (Resultaten, 2)) = Resultaten
    
    Cellen (1, 1). Soort Key1: =Cells (1, 1), Key2: =Cells (1, 2), Order1: Het =xlAscending, Order2: het =xlAscending, _
        Kopbal: =xlNo
        
Sub van het eind
Andere oplossingen  
 
programming4us programming4us