Microsoft Excel中 - 合并和整合问题

Question

我有三个列在Excel：

Column A: Category 
Column B: Value 
Column C: Value 

我想巩固列表，例如，如果我有一个像下面行：

A1:Car  | B1:Ford | C1:Toyota 
A2:Scooter | B2:Honda | C2:(blank) 
A3:Bike | B3:Yamaha | C3:Ducati 

给我一个结果：

A1:Car  | B1:Ford 
A2:Car  | B2:Toyota 
A3:Scooter | B3:Honda 
A4:Bike | B4:Yamaha 
A5:Bike | B5:Ducati 

Image explaining the issue

Answer 1

下面的代码可以做到这一点，因为这一切都发生在activesheet上。

Sub consolidate() 

Dim lastRow As Integer 
Dim lastCol As Integer 
Dim counterRow As Integer 
Dim counterCol As Integer 
Dim counterDestinationRow As Integer 
Dim destination As Object 

lastRow = Cells(Rows.Count, 1).End(xlUp).Row 

Set destination = Cells(lastRow + 2, 1) 
'or to another sheet: Set destination = Sheets("Sheet2").Cells(1, 1) 

For counterRow = 1 To lastRow 

    lastCol = Cells(counterRow, Columns.Count).End(xlToLeft).Column 

    For counterCol = 2 To lastCol 

     destination.Offset(counterDestinationRow, 0) = Cells(counterRow, 1) 
     destination.Offset(counterDestinationRow, 1) = Cells(counterRow, counterCol) 

     counterDestinationRow = counterDestinationRow + 1 

    Next counterCol 

Next counterRow 

End Sub 

Answer 2

无需编程，只需复制粘贴。

步骤0：保存为新SHEET :)

1. 插入在C之前的柱（这是新的列C）
2. 从柱A类到列C（复制为文本）复制值
3. 选择在列C和d的所有值，直接最后的值A以下复制粘贴和B.
4. 删除列c和d
5. 排序上柱A然后B，具有空值的列
除去空行