VBA從列表中提取唯一值到另一個工作表

在過去發佈的有關將唯一值從一列複製到另一個工作區的另一列中，提供的代碼運行良好，但它也複製了數據的標題行。VBA從列表中提取唯一值到另一個工作表

我已經嘗試了很多方法來修改代碼，但在VBA方面並不出色，我無法讓它工作。任何人都可以修改此代碼，以便將唯一值從一列複製到除標題行之外的另一列？

Sub AdvFilter() 
    Dim ws As Worksheet, sh As Worksheet 
    Dim rng As Range, Frng As Range 

    Set ws = Sheets("Flag Update (2)") 
    Set rng = ws.Range("A1") 
    Set sh = Sheets("ICM flags") 
    Set Frng = sh.Range("A:A") 

    Frng.AdvancedFilter Action:=xlFilterCopy, copytorange:=rng, Unique:=True 

End Sub

來源

2017-08-17 Jim Dandy

提示：您不需要創建工作表對象'ws'和'sh'，如果你沒有在你的代碼在其他地方使用它們......你可以使用這樣的代碼： 'Set rng = Sheets（「Flag Update（2）」）。Range（「A1」）' – jsotola

Sub Module() 

Application.ScreenUpdating = False 

With Range("A1:A10") 
    .Copy .Offset(, 3) 
    .Offset(, 3).RemoveDuplicates Columns:=1, Header:=xlNo 
End With 

Application.ScreenUpdating = True 

End Sub

來源

2017-08-17 18:25:32 0liveradam8

請爲您的答案的代碼添加一些解釋。與純英文描述配對時，僅有代碼的答案更有用。換句話說......評論你的代碼！ – TylerH

VBA從列表中提取唯一值到另一個工作表

回答

相關問題