Выбрать все строки в таблице

Пользователь

Сообщений: 169 Регистрация: 26.07.2015

28.02.2021 13:43:19

Добрый день, записал макрорекордером код

Код
ActiveSheet.Range("$A$1:$K$16160").RemoveDuplicates Columns:=Array(1, 2), _

Всего строк определяется как и есть в таблице 16160 строк, строк может быть гораздо больше, как изменить код что б не ограничивался колличеством строк в 16160 ?

New

Пользователь

Сообщений: 4837 Регистрация: 06.01.2013

28.02.2021 13:44:49

Вариант 1 - указать в адресе максимальное количество строк на листе

Код
ActiveSheet.Range("$A$1:$K$" & Rows.Count).RemoveDuplicates Columns:=Array(1, 2)

Вариант 2 - определить последнюю заполненную строку в каком-нибудь столбце, например, в столбце номер 1

Код

Sub test()
Dim LastRow As Long
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row 'последняя заполненная строка в столбце 1
    ActiveSheet.Range("$A$1:$K$" & LastRow).RemoveDuplicates Columns:=Array(1, 2)
End Sub

Изменено: New - 28.02.2021 13:48:25

nicex Пользователь Сообщений: 169 Регистрация: 26.07.2015	#3 28.02.2021 13:52:14 New, спасибо!