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，具有空值的列
除去空行