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

下面的代码可以解决问题，假设这一切都发生在活动表上。

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 步：另存为新工作表 :)

1. 在 C 之前插入一列（这是新的 C 列）
2. 将 A 列类别中的值复制到 C 列（复制为文本）
3. 选择列 C 和 D 中的所有值，直接复制粘贴到最后一个值 A 和 B 下。
4. 删除列 c 和 d
5. 按 A 列然后 B 列排序，删除空值列的空行