在Excel中将多个单独的列合并为1

Question

我有一个包含以下列的文件：Factory，PO，Item，Date，ETA 这些列水平重复30次。我希望能够将每个相应的列组合成1.本质上所有Factory列都变为1，PO变为单独的等等。我从下面的代码开始，但意识到它不考虑空白，也只是一个接一个地复制一列。它不会复制我需要的相应列。

    Sheets("Sheet1").Select
    Dim LR As Long, i As Long

    For i = 2 To 4
        LR = Cells(Rows.Count, i).End(xlUp).Row
        Range(Cells(1, i), Cells(LR, i)).Copy
        Sheets("Sheet4").Select
        Cells(Rows.Count, 1).End(xlUp).Offset(0).PasteSpecial Paste:=xlPasteValues,        Operation:=xlNone, SkipBlanks:=True, Transpose:=False
        Sheets("Sheet1").Select
    Next i

    LR = Range("A" & Rows.Count).End(xlUp).Row

    With Range("A1:A" & LR)
       .Value = .Value
    End With

    On Error Resume Next
         Columns("A").SpecialCells(xlCellTypeBlanks).Delete shift:=xlShiftUp
    On Error GoTo 0

    End Sub

！[实施例] [1]

http://i.stack.imgur.com/pk9FL.jpg

为了澄清一点，我不想连接。我正在提供样本数据的图片。使用示例数据作为参考点，我基本上希望将所有这些数据合并到一个单独的工作簿中，如下所示：

• 将A列与BU组合，B组合BV，依此类推。
• 从A列中提取所有数据并将其放入新工作簿A列
• 拉出列BU数据并放在新工作簿列A
中的A列数据下面
• 对B和BV等做同样的事情

希望能再澄清一点。