基於列中最後一個唯一值的VBA複製行

Question

我想在Excel電子表格中對數據進行彙總。我要複製基於關閉的第一列在這裏的最後一個唯一行是數據的一個例子：

DocOrd# text Value 

1   text .1 
1   text .2 
1   text .3 
1   text .4 
2   text  2 
2   text  4 
2   text  6 
2   text  8 
3   text  1 
3   text  2 
3   text  3 
3   text  4 

我想要什麼：

DocOrd# text Value 

1   text .4 
2   text  8 
3   text  4 

感謝所有幫助

Answer 1

這可能有助於 - 它遍歷數據（假設在Sheet1開始於單元格A1中），並獲取每個DocOrd#的最後一個條目並將其放在Sheet2

Sub CopyLastEntry() 
    Dim entries As Range, entry As Range, cnt As Long 

    Set entries = Range("A2:A" & Range("A1").End(xlDown).Row) //Change as per your s/sheet 
    cnt = 1 

    For Each entry In entries 
     If entry <> entry.Offset(1, 0) Then 
      Range(entry, entry.Offset(0, 3)).Copy Destination:=Worksheets(2).Range("A" & cnt) 
      cnt = cnt + 1 
     End If 
    Next entry 
End Sub