選擇獨特的行並將其值複製爲傳輸

Question

我想選擇唯一的行並將其值作爲轉置複製到差異表中。

我的意思是使VBA代碼動態。

下面是一個例子

Raw Excel 
x 1 
x 2 
x 3 
y 4 
y 5 
z 6 

Desired output 
x y z 
1 4 6 
2 5 
3 

Answer 1

試試這個

Sub a() 
DataRow = 1 
DataCol = 1 
OutputRow = 1 
OutputCol = 4 

Application.ScreenUpdating = False 
OutputCol = OutputCol - 1 
While Cells(DataRow, DataCol).Value <> 0 
    Cells(DataRow, DataCol).Select 
    ThisValue = Cells(DataRow, DataCol).Value 
    If ThisValue <> PrevValue Then 
     OutputCol = OutputCol + 1 
     MyRow = OutputRow 
     Cells(MyRow, OutputCol).Value = Cells(DataRow, DataCol).Value 
     MyRow = OutputRow + 1 
    End If 
    Cells(MyRow, OutputCol).Value = Cells(DataRow, DataCol + 1).Value 
    PrevValue = ThisValue 
    DataRow = DataRow + 1 
    MyRow = MyRow + 1 
Wend 
Application.ScreenUpdating = True 
End Sub