Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Автоудаление дубликатов - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Автоудаление дубликатов (Формулы/Formulas)
Автоудаление дубликатов
Fiko81 Дата: Воскресенье, 17.03.2019, 08:32 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Доброго всем времени суток и настроения!
Уважаемые форумчане и знатоки, прошу помощи!
Есть некая база данных, информация которая сортирована по колоннам А,В,С,D,Е (прилагается excel файл/sheet 1,2).
В прикрепленном файле есть макрос который автоматически удаляет повторяющюйся вбитую информацию в колонну D. Но тут есть одна проблема.
Этот макрос работает когда имена по одному вбивается в Excel. Когда копируешь и вставляешь группу людей (допустим из 10 человек) из другого файла (People counting-2 копируем только колонну Card number) то Excel выдает ошибку Run-time error 13 Type mismatch. Можно ли как небудь решить эту проблему? Что бы когда вставляешь копированную из 10 человек информацию Excel находил обе одинаковые значения и удалял как он делает это по одному.
Заранее благодарен.
К сообщению приложен файл: People_Counting.xlsm(59.0 Kb) · 0131306.xlsm(59.1 Kb)
 
Ответить
СообщениеДоброго всем времени суток и настроения!
Уважаемые форумчане и знатоки, прошу помощи!
Есть некая база данных, информация которая сортирована по колоннам А,В,С,D,Е (прилагается excel файл/sheet 1,2).
В прикрепленном файле есть макрос который автоматически удаляет повторяющюйся вбитую информацию в колонну D. Но тут есть одна проблема.
Этот макрос работает когда имена по одному вбивается в Excel. Когда копируешь и вставляешь группу людей (допустим из 10 человек) из другого файла (People counting-2 копируем только колонну Card number) то Excel выдает ошибку Run-time error 13 Type mismatch. Можно ли как небудь решить эту проблему? Что бы когда вставляешь копированную из 10 человек информацию Excel находил обе одинаковые значения и удалял как он делает это по одному.
Заранее благодарен.

Автор - Fiko81
Дата добавления - 17.03.2019 в 08:32
Pelena Дата: Воскресенье, 17.03.2019, 11:12 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 14097
Репутация: 3081 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Здравствуйте.
Так подойдёт? Предполагается, что строки добавляются в конец столбца
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim irow&, cl As Range, rowsDel As Range
    If Target.Column <> 4 Then Exit Sub
    For Each cl In Target
        For irow = 2 To Target.Row - 1
            If cl.Value = Cells(irow, 4) Then
                If rowsDel Is Nothing Then Set rowsDel = Union(Rows(irow), Rows(cl.Row)) Else Set rowsDel = Union(rowsDel, Rows(irow), Rows(cl.Row))
                Exit For
            End If
        Next irow
    Next cl
    If Not rowsDel Is Nothing Then rowsDel.Delete
End Sub
[/vba]
К сообщению приложен файл: 9822878.xlsm(59.3 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Так подойдёт? Предполагается, что строки добавляются в конец столбца
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim irow&, cl As Range, rowsDel As Range
    If Target.Column <> 4 Then Exit Sub
    For Each cl In Target
        For irow = 2 To Target.Row - 1
            If cl.Value = Cells(irow, 4) Then
                If rowsDel Is Nothing Then Set rowsDel = Union(Rows(irow), Rows(cl.Row)) Else Set rowsDel = Union(rowsDel, Rows(irow), Rows(cl.Row))
                Exit For
            End If
        Next irow
    Next cl
    If Not rowsDel Is Nothing Then rowsDel.Delete
End Sub
[/vba]

Автор - Pelena
Дата добавления - 17.03.2019 в 11:12
Fiko81 Дата: Воскресенье, 17.03.2019, 12:04 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Pelena,
Так подойдёт?

Cупер!
Спасибо вам огромное. Выручили.
 
Ответить
СообщениеPelena,
Так подойдёт?

Cупер!
Спасибо вам огромное. Выручили.

Автор - Fiko81
Дата добавления - 17.03.2019 в 12:04
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Автоудаление дубликатов (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!