Excel 如何粘贴唯一值而不显示跳过的行？

我试图从一行中提取唯一的采购订单，并将该列表粘贴到另一张表中。问题是当我粘贴时，它没有按顺序列出采购订单（a1、a2、a3、a4）；它从复制它们的位置（a3、a112、a194等）粘贴它们 下面是宏：

Sub unique_values()
'
' unique_values Macro
'
'
    Columns("A:A").Select
    Selection.Copy
    Sheets("Sheet1").Select
    Sheets.Add After:=ActiveSheet
    Columns("A:A").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Range("A1:A394").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
End Sub

---

刚刚更新了一点代码。你就快到了。复制后只需删除空单元格

    Columns("A:A").Select
    Selection.Copy
    Sheets("Sheet1").Select
    Sheets.Add After:=ActiveSheet
    Columns("A:A").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Range("A1:A394").RemoveDuplicates Columns:=Array(1)
    On Error Resume Next
With Range("A:A")
    If WorksheetFunction.CountA(.Cells) > 0 Then .SpecialCells(xlCellTypeBlanks).Delete Shift:=xlShiftUp
End With

---

你能给我们看一下你的工作表样本吗？我不想问，但我该怎么做？你可以拍摄一个屏幕截图，并将其作为图片添加到你的问题中使用高级过滤器，它旨在提取数据并复制到另一个位置。