Здравствуйте, уважаемые форумчане. Помогите пожалуйста в решении такой задачи. Есть сводная таблица, в ней дублируются значения. Мне нужно удалить дубликаты так, чтобы ячейки не сдвигались вверх. Я написала вот такой код [vba]
Код
Sub Кнопка11_Щелчок() Range (" F9:I500") . RemoveDuplicates 2 End Sub
[/vba]
Этот макрос всё делает правильно, удаляет только по 2 столбцу, где стоит радиус (пример в файле), но сдвигает их вверх. Помогите пожалуйста:))
Здравствуйте, уважаемые форумчане. Помогите пожалуйста в решении такой задачи. Есть сводная таблица, в ней дублируются значения. Мне нужно удалить дубликаты так, чтобы ячейки не сдвигались вверх. Я написала вот такой код [vba]
Код
Sub Кнопка11_Щелчок() Range (" F9:I500") . RemoveDuplicates 2 End Sub
[/vba]
Этот макрос всё делает правильно, удаляет только по 2 столбцу, где стоит радиус (пример в файле), но сдвигает их вверх. Помогите пожалуйста:))Julia1663
Ну если нужна проверка только по второму столбцу, то можно так [vba]
Код
Sub Макрос1() Dim rng As Range Set Dict = CreateObject("Scripting.Dictionary") arr = Range("A2:C5") For n = 1 To UBound(arr) If Not Dict.Exists(arr(n, 2)) Then Dict.Add arr(n, 2), arr(n, 2) Else If rng Is Nothing Then Set rng = Range(Cells(n + 1, 1), Cells(n + 1, 3)) Else Set rng = Union(rng, Range(Cells(n + 1, 1), Cells(n + 1, 3))) End If Next If Not rng Is Nothing Then rng.Clear End Sub
[/vba] А можете из этой ТЕМЫ взять формулу, протянуть вниз, отфильтровать по "0" и удалить значения
Ну если нужна проверка только по второму столбцу, то можно так [vba]
Код
Sub Макрос1() Dim rng As Range Set Dict = CreateObject("Scripting.Dictionary") arr = Range("A2:C5") For n = 1 To UBound(arr) If Not Dict.Exists(arr(n, 2)) Then Dict.Add arr(n, 2), arr(n, 2) Else If rng Is Nothing Then Set rng = Range(Cells(n + 1, 1), Cells(n + 1, 3)) Else Set rng = Union(rng, Range(Cells(n + 1, 1), Cells(n + 1, 3))) End If Next If Not rng Is Nothing Then rng.Clear End Sub
[/vba] А можете из этой ТЕМЫ взять формулу, протянуть вниз, отфильтровать по "0" и удалить значенияmsi2102
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
