Question

我下面的代码适用于从一个工作表复制/粘贴到另一个工作表，但我知道想要添加基于单个列中的唯一标识符删除重复行的附加规定。在排序数据的B列中是唯一标识符，可用作删除重复行的单个引用。

Sub SummarySort()

    Dim sEnd As Long

    Sheets("Summary").Range("A2:E250").ClearContents

    Sheets("Portfolio").Select

        Range("a1").Select

        sEnd = Selection.End(xlDown).Row

        Range("B5:" & "F" & sEnd).Copy

    Sheets("Summary").Select

        Range("A2").Select

        Selection.PasteSpecial Paste:=xlPasteValues, _
            Operation:=xlNone, SkipBlanks:=False, Transpose:=False



        Columns("A:Z").Sort key1:=Range("A:A"), order1:=xlAscending, Header:=xlYes, _
                            key2:=Range("E:E"), order2:=xlAscending, Header:=xlYes, _
                            OrderCustom:=1, MatchCase:=False, _
                            Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

    Application.CutCopyMode = False

End Sub

Answer 1

替换此代码行，

Application.CutCopyMode = False

...使用此代码行。

columns("A:Z").RemoveDuplicates Columns:=2, Header:=xlyes

需要调整Excel VBA宏以使用唯一标识符删除重复项

1 个答案: