как вставить уникальные значения, не показывая пропущенные строки?

Question

Я пытаюсь извлечь уникальные заказы на покупку из строки и вставить этот список на другой лист. Проблема в том, что когда я вставляю, он не перечисляет заказы на покупку последовательно (a1, a2, a3, a4); Он вставляет их из того места, где они были скопированы (a3, a112, a194, et c), вот макрос:

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

введите описание изображения здесь

Answer 1

Только что немного обновил ваш код. Вы были почти у цели. Просто удалите пустые ячейки после копирования.

    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