VBA实现多列数据合并为一列

水文数据处理中，经常会遇到将一个表格进行重新排列，实现把很多列的数据合并为一列，因此使用VBA实现多列数据合并为一列的功能，这一功能在日常工作也经常会用到，提供的这一VBA函数为MultiColumnsToOneColumn，具体源代码如下：

 

01.Option Explicit

02.'================================

03.' 多列数据合并为一列

04.' MultiColumnsToOneColumn

05.'

06.'================================

07.Sub MultiColumnsToOneColumn()

08.    Dim shtNew As Worksheet

09.    Dim rngSelection As Range

10.    Dim rngDest As Range

11.    Dim i As Integer

12.    Dim j As Integer

13.     

14.    Dim iPosOfRow As Integer

15.     

16.    Set rngSelection = Selection

17.    Set shtNew = Sheets.Add

18.    Set rngDest = shtNew.Cells(1, 1)

19.    iPosOfRow = 0

20.    For j = 1 To rngSelection.Columns.Count

21.        For i = 1 To rngSelection.Rows.Count

22.            rngDest.Offset(iPosOfRow, 0).Value = rngSelection.Cells(i, j).Value

23.            iPosOfRow = iPosOfRow + 1

24.        Next

25.    Next

26.End Sub