Почему этот код удаляет исходное значение удалить дубликаты? - PullRequest
Новая
       6

Почему этот код удаляет исходное значение удалить дубликаты?

0 голосов
/ 10 марта 2020

Этот код предназначен для удаления дубликатов и деления значения каждые 500 ячеек, но, например, если я запускаю этот код только с A1: A500 = 1, он тоже удалит 1. 


Dim ws As Worksheet: Set ws = ActiveSheet
Dim lr As Long, i As Long, c As Long
Dim rng As Range
    Set rng = Range("A:A")
        rng.RemoveDuplicates Columns:=1, Header:=xlNo
    lr = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
    c = 2
For i = 501 To lr Step 500
    ws.Range(ws.Cells(1, c), ws.Cells(500, c)).Value = ws.Range(ws.Cells(i, 1), ws.Cells(i + 500, 1)).Value
    c = c + 1
Next i
ws.Range("A501:A" & lr).ClearContents

End Sub
...