Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Нахождение одинаковых значений по определенным столбцам на разных листах и копирование их на новый лист
 
Спасибо skais675 !!! Все сделал.
Нахождение одинаковых значений по определенным столбцам на разных листах и копирование их на новый лист
 
Нужно написать макрос.
Задача: есть файл (который периодически обновляется) в нем имеется три листа. Количество строк в каждом листе разное и может быть несколько тысяч. Необходимо выполнить поиск на всех трех листах одинаковых значений (в том числе и на каждом листе) по определенным столбцам, конкретнее - найти одинаковые Фамилию, Имя, Отчество и дату рождения. Все найденные одинаковые значения скопировать на новый лист. Результат который должен получиться в файле.
Бюджет: 500 рублей.
Поиск одинаковых значений на разных листах по разным столбцам и их копирование на новый лист
 
Удалите тему. Вопрос перенесу в платный раздел.
Поиск одинаковых значений на разных листах по разным столбцам и их копирование на новый лист
 
Цитата
Михаил С. написал:
напишите - раздел Работа,  помогите - общий.
Я понимаю что вы здесь ради заработка, но пока что подожду, может найдутся спецы, а там может я и сам отблагодарю....
Изменено: Андрей_26 - 24 Дек 2018 17:23:55
Поиск одинаковых значений на разных листах по разным столбцам и их копирование на новый лист
 
Не помню где, но нашел что-то наподобие
Код
Sub Dublicate()
    Dim a(), i&, t$, ind&, x&
     
    Application.ScreenUpdating = False
    With CreateObject("scripting.dictionary")
        a = Sheets(1).UsedRange.Columns(14).Resize(, 6).Value
        For i = 2 To UBound(a)
            t = a(i, 1) & "|" & a(i, 2) & "|" & a(i, 3) & "|" & a(i, 4) & "|" & a(i, 5) & "|" & a(i, 6)
            .Item(t) = 0&
        Next
 
        a = Sheets(2).UsedRange.Columns(14).Resize(, 6).Value
        ReDim b(1 To UBound(a, 1), 1 To UBound(a, 2))
 
        For i = 2 To UBound(a)
            t = a(i, 1) & "|" & a(i, 2) & "|" & a(i, 3) & "|" & a(i, 4) & "|" & a(i, 5) & "|" & a(i, 6)
            If .exists(t) Then
                ind = ind + 1: For x = 1 To UBound(a, 2): b(ind, x) = a(i, x): Next
            End If
        Next
    End With
 
    If ind > 0 Then Sheets.Add.[a1].Resize(ind, UBound(b, 2)) = b
    Application.ScreenUpdating = True
    ActiveSheet.Name = "Dublicate"
 
End Sub

Данный макрос сверяет данные на двух листах и копирует одинаковые значения на новый лист. Помогите его доработать. Нужно:
1) сделать поиск по трем листам
2) поиск осуществлять по столбцам: на листах "1 и 2" - N, P ,Q, R    на листе "3" - H, I, J, K
3) все найденные одинаковые значения копировать на новый лист.
Изменено: Андрей_26 - 24 Дек 2018 17:39:00
Поиск одинаковых значений на разных листах по разным столбцам и их копирование на новый лист
 
Цитата
Юрий М написал:
В чём конкретно заключается помощь? Может следовало бы сформулировать иначе - "напишите мне макрос"?
А разве "Помогите с написанием макроса" и "Напишите мне макрос" ни одно и тоже ?
Поиск одинаковых значений на разных листах по разным столбцам и их копирование на новый лист
 
Нужен макрос. Так как им будут пользоваться много людей, которые в Excel не очень хорошо разбираются. А так нажмут на одну кнопку и все готово!  
Поиск одинаковых значений на разных листах по разным столбцам и их копирование на новый лист
 
Добрый день!
Просмотрел форум, но к сожалению не смог найти нужного решения. Помогите с написанием макроса. Задача: есть файл в котором имеется три листа . Количество строк в каждом листе разное и может быть несколько тысяч. Необходимо выполнить поиск на всех трех листах одинаковых значений по определенным столбцам, конкретнее - найти одинаковые Фамилию, Имя, Отчество и дату рождения. Все найденные одинаковые значения скопировать на новый лист:
1) либо полностью строку в которой содержится искомое значение
2) либо просто столбец "А" (с номером договора) + ФИО +ДР.
Образец в файле.
Создание сводной таблицы макросом с динамическим диапазонов
 
Maruf большое спасибо!!! Воспользовался вашим кодом макроса для создания сводной таблицы с динамическим диапазоном. Очень помогло, облазил весь интернет !!!
Страницы: 1
Наверх