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

时间:2014-01-08 16:54:50

标签: excel multiple-columns

我有一个包含以下列的文件: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等做同样的事情

希望能再澄清一点。

0 个答案:

没有答案