Excel удалить дубликаты макрос

Добрый день, вчера весь день искал себе подходящий способ решения своей задачи, но так и не нашел подходящий.
Прошу Вас помочь мне.

В приложенном Excel файле 2 таблицы:

Левая — исходные данные
Правая — какой должен получиться результат

Задача — сразу в нескольких колонках, удалить все дубликаты находящиеся только в одном столбце.

То есть если в одном столбце дважды (или несколько раз) попадается цифра «4» — то именно в этом столбце должна остаться только одна цифра «4».

Например: У нас в одном столбце восемь цифр: 1 2 3 4 1 2 3 4
Мы видим, что здесь последние четыре цифры 1 2 3 4 — дублируются, то есть на выходе должны остаться только первые четыре цифры 1 2 3 4

Я нашел пару макросов, как удалить дубликаты во всех столбцах, а не только в одном — и это не подходит.

Например: У нас есть два столбца:

1….5
2….6
3….5
4….6
1….1
2….2
3….3
4….4

То есть, на выходе должно получиться:

1…..5
2…..6
3…..1
4…..2
…….3
…….4

То есть, в первом столбце были удалены дублирующиеся последние четыре цифры (1 2 3 4), а во втором столбце дублирующиеся вторая и третья цифры (5 6).

Вот тут важно то, что во втором столбце последние цифры 1 2 3 4 — не дубликаты потому, что во втором столбце нет повторяющихся цифр 1 2 3 4.
Во втором столбце дублируются лишь 5 и 6.

А мои макросы оказывается удаляют дубликаты не в отдельном одном столбце из всей массы столбцов, а во всех столбцах сразу — виртуально объединив их в один.

Где в результате из нашего примера получается следующее:

1….5
2….6
3
4

Хотя, мне не нужно было, чтобы макрос удалял во втором столбце последние четыре цифры 1 2 3 4.

Excel VBA code to remove duplicates from a given range of cells. In the below data set we have given a list of 15 numbers in “Column A” range A1:A15.  Need to remove duplicates and place unique numbers in column B.

Sample Data: Cells A1:A15

Final Output:

VBA Code to remove duplicates and place into next column (B)

Declare Variables:

'Variable Declarations
Dim nonDuplicate As Boolean, uNo As Integer, colA As Integer, colB As Integer

Always first value will be unique, So A1 place to cell B1

'Place first value to B1
Cells(1, 2).Value = Cells(1, 1).Value

Initialize variables:

'Initialize uNo = 1 since first number is already placed in column B; Assign True to the variable nonDuplicate

uNo = 1

nonDuplicate= True

Since the first number is already placed in cell B1, Loop starts from A2 to A15.  Take each number from Column A and check with Column B (unique range)

'Use for loop to check each number from A2 to A15 
For colA = 2 To 15
    For colB = 1 To uNo

if the number is already placed in column B.  Assign False to the “nonDuplicate” variable.

        If Cells(colA, 1).Value = Cells(colB, 2).Value Then
            nonDuplicate= False
        End If

“nonDuplicate” is True then place to column B and increase uNo by 1

    'if nonDuplicate is true, place cell value in column B and increase uNo = uNo + 1
    If nonDuplicate = True Then
        Cells(uNo + 1, 2).Value = Cells(colA, 1).Value
        uNo = uNo + 1
    End If

Reset “nonDuplicate” variable 

'reset nonDuplicate to True
nonDuplicate = True

Close for loop

Next colA

Implementation:

Follow the below steps to remove duplicates using Excel VBA:

Step 1: Add a shape (VBA Remove Duplicates) to your worksheet  

Step 2: Right-click on “VBA Remove Duplicates” and “Assign Macro..”

Step 3: Select “removeDuplicates”, you can see a list of macros available in your workbook

Step 4: Save your excel file as “Excel Macro-Enabled Workbook” *.xlsm

Step 5: Click “VBA Remove Duplicates” to execute VBA code and see the output