各位高手，除了剪切粘贴，有简单的方法将多列数据搞到一列去么？

稻草离离

求助各位大侠。。。。
如下所示，很多列数据，想要整理成1列，有快捷的方法么？（不是合并多列中的值到一列哟，是保持数值不变，只是形式变到一列里去。。。。）
初来乍到，还请高手指教呀~~~多谢啦！                                
1        5        9                1
2        6        10                2
3        7        11                3
4        8        12                4
                                5
                                6
                                7
                                8
                                9
                                10
                                11
                                12

fdd

Sub test()
    '此代码假定A列没有数据
    '如果A列有数据，可以找一列没有数据的替换代码中的A列
    Set Rng = ActiveSheet.Cells.SpecialCells(2)
    For Each temp In Rng
        If [a1] <> "" Then
            [a65536].End(xlUp).Offset(1, 0) = temp.Value
        Else
            [a1] = temp.Value
        End If
    Next

End Sub