Pytanie : Konwertyta matrycowy wartość kolumna

Ponowny MS Excel2003
Help I mieć wielki siatka dane che I polubić convert
to kolumna (w baza danych).

In prosty termin I mieć
(nutowy alfa i numeryk)
X Y Z etc
A (1) 2 3
B 4 5 6
C 7 8 9
etc

Which I potrzebować (zauważać 7 alfa numeryk być w oddzielny komórka)
X A 1
X A 2
X 3
Y B 4
Y B 5
Y B 6
Z C 7
Z C 8
Z C 9
etc

In rzeczywistość I mieć 9
I B wdzięczny dla jakaś pomoc na kolumna zadawalać. Thanks

Odpowiedź : Konwertyta matrycowy wartość kolumna

To pojawiać się.  Ono używać szyk przeniesienie prędkość rzecz rzecz.
(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:

Okręt podwodny FlatList ()
    
    Ciemnawy arr Jako Wariant
    Ciemnawy r Długo, c Długo
    Ciemnawy Rezultat () Jako Wariant
    Ciemnawy DestR Długo
    
    arr = Pasmo ("a1", Pasmo ("a1") .SpecialCells (xlCellTypeLastCell)). Wartość
    ReDim Wynikać ((1) (UBound (arr, 1) - 1) * (UBound (arr, 2) - 1), (1) 3) Jako Wariant
    
    Dla r = 2 UBound (arr, 1)
        Dla c = 2 UBound (arr, 2)
            DestR = DestR + (1)
            Rezultat (DestR, 1) = arr ((1), c)
            Rezultat (DestR, 2) = arr (r, 1)
            Rezultat (DestR, 3) = arr (r, c)
        Następnie
    Następnie
    
    Worksheets.Add
    Komórka ((1), 1).Resize (UBound (Rezultat, 1), UBound (Rezultat, 2)) = Rezultat
    
    Komórka ((1), 1).Sort Key1: =Cells ((1), 1), Key2: =Cells ((1), 2), Order1: =xlAscending, Order2: =xlAscending, _
        Chodnikowiec: =xlNo
        
Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us