Question

在过去的一篇文章中，关于在另一个工作单上将唯一值从一列复制到另一列，所提供的代码工作得很好，除了它还复制了数据的标题行。

我已经尝试了很多方法来修改代码，但是在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

Answer 1

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

VBA将列表中的唯一值提取到另一个工作表

1 个答案: