Microsoft Excelの - 私は、Excelでの3つのカラム持っている問題

Question

をマージし、統合：

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

私に結果を与える：私は、私は以下のような行を持っている場合は、そのようなリストを統合する

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

を：

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：AS新しいシートを保存:)

1. 列C（テキストとしてコピー）
にカラムから
2. コピー値カテゴリ（これは、新しい列Cである）Cの前に列を挿入
3. は、列C及びD内のすべての値を選択し、最後の値Aの直下にペーストをコピーしB.
4. 列cおよびカラムA、次にBに
5. ソートDを削除し、空の値列
で、空行を削除します