Jag behöver hjälp!!!!

har en matris med data soom behöver kopieras till en enda kolumn. har ingen aning om hur jag ska göra för att göra detta så är verkligen glad om hjälp finns. 

exempe: A    B     C     

              D    E      F

              G    H     I

ska bli:

A

B

C

D

F

G

H

I

 Hej hej

Skrev lite kod till dig som löser ditt problem :). Öppna upp editorn med alt f11. Klicka infoga modul i projektfönstret. Dubbelklicka på modulen och lägg koden i vita fönstret. Makrot kan sedan kopplas till en knapp eller hotkey för att köras. Om texten inte förklarar sig själv:

Select a range for input, här ska du välja din matris.

Select a cell for OutPut, Här ska du välja startcell.

Mvh

CHristian

Sub MatrixToOneCol()    

    Dim rngIn As Range: Set rngIn = Application.InputBox("Select a range for input", "Pick a range", Type:=8)

    Dim rngOut As Range: Set rngOut = Application.InputBox("Select a cell for OutPut", "Pick a range", Type:=8)

    Dim mCell As Range

    Dim mMultiplier As Long: mMultiplier = rngIn.Columns.Count    

    For Each mCell In rngIn

        rngOut.Offset((mCell.Row * mMultiplier) + mCell.Column - (rngIn.Row * mMultiplier) - rngIn.Column) = mCell

    Next mCell

End Sub