ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / сопоставление данных на двух листах
45 сообщений из 45, показаны все 2 страниц
  все  
сопоставление данных на двух листах
    #36542375
VNI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VNI
Гость
Нужно оптимизировать такой макрос:
сопоставляет данные одного листа с данными другого листа и дополняет первый лист колонкой с соответствующими значениями со второго листа.
вот код
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
Sub Admin()
    Sheets("(1)").Cells( 9 ,  2 ).Value = Time()
    Sheets("(1)").Select
    i_z = Sheets("22").Cells( 1 ,  1 ).Value
    i_nvs = Sheets("(1)").Cells( 9 ,  1 ).Value
    
    For i =  14  To i_nvs
    
     If (Cells(i,  18 ).Value <> "") And (Cells(i,  17 ).Value = "") Then
     
        Find = Trim(Cells(i,  18 ).Value)
        'kol2 = 0
        For j =  5  To i_z Step  1 
        If Trim(Sheets("22").Cells(j,  8 ).Value) = Find Then
        Sheets("(1)").Cells(i,  17 ).Value = Sheets("22").Cells(j,  6 ).Value
        If Sheets("22").Cells(j,  5 ).Value <> Sheets("(1)").Cells(i,  12 ).Value Then
        Sheets("(1)").Cells(i,  17 ).Font.ColorIndex =  5 
        End If
      Exit For
        End If
       
        Next j
    

    
        Sheets("(1)").Cells( 9 ,  3 ).Value = Time()
            
         
    End If
    Next i
    
End Sub

выполняется жутко долго. количество записей и на первом листе и на втором - по 40-60 тыс.
...
Рейтинг: 0 / 0
25.03.2010, 14:40
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36542394
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: VNI
> выполняется жутко долго. количество записей и на первом листе и на втором - по 40-60 тыс.

А просто прописать формулу проверки в отдельном столбце, и по значению #Н/Д отфильтровать нужные для копирования не
пробовал?

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
25.03.2010, 14:45
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36542401
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
VNI,
В начале кода поместить такой код:
Код: plaintext
1.
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual


В конце кода поместить такой код:
Код: plaintext
1.
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
...
Рейтинг: 0 / 0
25.03.2010, 14:46
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36542403
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Вообще-то такие вещи на таких объемах данных делаются через СУБД.

Первое, что приходит в голову, если нет возможности использовать СУБД - отсортировать исходные данные на личтах по возрастанию, и организовать два одновременно перемещающихся курсора по ним. Если вдруг данные под курсорами становятся несинхронными - вычлненить несоответствие, синхронизировать курсоры и продолжать. Тогда это будет в один проход реализовано и уж точно на пару порядков быстрее. Вопрос только, сколько займет сама сортировка.
...
Рейтинг: 0 / 0
25.03.2010, 14:46
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36542520
VNI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VNI
Гость
Игорь Горбонос
А просто прописать формулу проверки в отдельном столбце, и по значению #Н/Д отфильтровать нужные для копирования не
пробовал?

не пробовалА. в VBA - самоучка. выкручиваюсь как могу) можно поподробнее?
...
Рейтинг: 0 / 0
25.03.2010, 15:16
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36542524
VNI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VNI
Гость
Djon Player,
спасибо, попробую - может действительно будет быстрее. пока выполняется около 5,5 часов
...
Рейтинг: 0 / 0
25.03.2010, 15:17
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36542535
VNI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VNI
Гость
Shocker.Pro,
пока только есть такой вариант. над вариантом через СУБД - тоже работаем.
с курсорами боюсь не справлюсь сама, но попробую.

А вот есть же .find метод и ищет он быстро, пробовали на другой задаче. вот из хелпа:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Example
This example finds all cells in the range A1:A500 on worksheet one that contain the value  2  and changes it to  5 .

With Worksheets( 1 ).Range("a1:a500")
    Set c = .Find( 2 , lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Value =  5 '********
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
Только как с помощью него вместо 5 из примера проставлять значение столбца по строке в которой найдено совпадение?
...
Рейтинг: 0 / 0
25.03.2010, 15:21
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36542546
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
VNIзначение столбца

c.Row или c.Range.Row
...
Рейтинг: 0 / 0
25.03.2010, 15:23
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36542550
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Shocker.ProVNIзначение столбца

c.Row или c.Range.Row

Виноват - столбец
c.Column или c.Range.Column
...
Рейтинг: 0 / 0
25.03.2010, 15:24
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36542554
VNI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VNI
Гость
так это будет на первом листе (или я запуталась?). а мне надо на втором.
...
Рейтинг: 0 / 0
25.03.2010, 15:24
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36542589
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
VNI,

В двух словах уточните на каком листе ведётся поиск, на какой лист помещать значение, откуда это значение взять. Ну и другие нюансы которые может я забыл спросить.
А то над самым первым кодом к вечеру уже лень голову ломать и думать, что именно он делает.
...
Рейтинг: 0 / 0
25.03.2010, 15:34
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36542600
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
VNIтак это будет на первом листе (или я запуталась?). а мне надо на втором.

Вы просто вопрос непонятно задали.
с - результат поиска методом Find
соответственно с.Row - строка, где найдено значение, c.Column - столбец.

С Djon Player я не согласен - отключение обновления экрана скорее всего не поможет, потому что у вас в цикле ничто на экране не обновляется.

Метод .Find вместо внутреннего цикла ускорит работу раза в два.

Метод двух курсоров на пару порядков (не считая времени на сортировку).
К сожалению, сегодня не успею сделать вам пример, могу попробовать завтра, если никто больше не предложит и если это вам действительно нужно.
...
Рейтинг: 0 / 0
25.03.2010, 15:36
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36542605
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: VNI
> не пробовалА. в VBA - самоучка. выкручиваюсь как могу) можно поподробнее?

Дай книгу с небольшим количеством данных, я покажу

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
25.03.2010, 15:38
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36542608
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
Shocker.Pro,

В коде присутствует изменения цвета ячеек и установка значений, поэтому какой-то прирост производительности от отключения обновления экрана всё равно будет, вопрос лишь в том, на сколько он большой этот прирост.
Я например задачу до конца не понял, а из того что понял, мне почему-то кажется, что я бы решил эту задачу в помощью ВПР.
Вобщем надо уточнение задачи, лучше чтобы был файл.
...
Рейтинг: 0 / 0
25.03.2010, 15:40
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36542638
VNI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VNI
Гость
спасибо за такое участие)
В двух словах о задаче:
есть столбец с уникальными значениями на первом листе - пусть будет Лист1. столбец 1, и такой же столбец на втором (Лист 2.столбец 2).
Лист 1 содержит все данные, а лист 2 периодически меняется и нужно значения из листа 2 проставлять в соответствующие строки первого листа. Соответствие по уникальному полю.
Нужно в столбец на первом листе Лист 1. Столбец 2 - записать значения из Листа 2.столбец 3.
По-моему я еще больше всех запутала сейчас.
...
Рейтинг: 0 / 0
25.03.2010, 15:47
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36542644
VNI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VNI
Гость
книгу с данными обязательно подготовлю - смогу выложить только завтра.
...
Рейтинг: 0 / 0
25.03.2010, 15:49
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36542655
VNI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VNI
Гость
а по поводу выделения цветом - пробовала и без него - тоже долго. оно на производительность сильно не влияет.
...
Рейтинг: 0 / 0
25.03.2010, 15:51
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36542660
VNI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VNI
Гость
Shocker.Pro,

действительно нужно.
...
Рейтинг: 0 / 0
25.03.2010, 15:53
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36542689
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
VNI,

Ну например я вот так состряпал ан скорую руку:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
Option Explicit

Sub test()
 Dim ch As Range
 Dim c As Range
 Dim firstAddress As String
 
 Application.ScreenUpdating = False
 Application.Calculation = xlCalculationManual

 
 With Worksheets( 2 )
   For Each ch In .Range("a1:a10000")
    Set c = Worksheets( 1 ).Range("a1:a50000").Find(ch.Value, LookIn:=xlValues)
      
    If Not c Is Nothing Then
     firstAddress = c.Address
     Do
       c.Offset( 0 ,  1 ).Value = ch.Offset( 0 ,  2 ).Value
       Set c = Worksheets( 1 ).Range("a1:a50000").FindNext(c)
     Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
   Next ch
 End With
 
 Application.Calculation = xlCalculationAutomatic
 Application.ScreenUpdating = True

End Sub

В данном примере предполагается, что на первом листе 50 тысяч строк
а на втором 10 тысяч строк
Можно модифицировать и определите где какое точное количество строк.
...
Рейтинг: 0 / 0
25.03.2010, 15:59
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36542713
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
Оптимизировал код:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
Option Explicit

Sub test()
 Dim ch As Range
 Dim c As Range
 Dim firstAddress As String
 Dim ran1 As Range
 Dim ran2 As Range
 
 Application.ScreenUpdating = False
 Application.Calculation = xlCalculationManual

 Set ran1 = Intersect(Worksheets( 1 ).UsedRange, Worksheets( 1 ).Columns( 1 ))
 Set ran2 = Intersect(Worksheets( 2 ).UsedRange, Worksheets( 2 ).Columns( 1 ))
  
 
 For Each ch In ran2
  Set c = ran1.Find(ch.Value, LookIn:=xlValues)
    
  If Not c Is Nothing Then
   firstAddress = c.Address
   Do
     c.Offset( 0 ,  1 ).Value = ch.Offset( 0 ,  2 ).Value
     Set c = ran1.FindNext(c)
   Loop While Not c Is Nothing And c.Address <> firstAddress
  End If
 Next ch
 
 
 Application.Calculation = xlCalculationAutomatic
 Application.ScreenUpdating = True

End Sub
...
Рейтинг: 0 / 0
25.03.2010, 16:04
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36542728
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
Можно ещё увеличить скорость за счёт того, что значения в первом столбце первого листа уникальны, поэтому достаточно найти лишь один элемент, а не пытаться найти все элементы, т.к. других там быть не должно.
Единственный вопрос ещё остался, что делать с теми элементами, которые есть на втором листе, но нет на первом. Добавить в конец первого листа или такого быть не должно?
...
Рейтинг: 0 / 0
25.03.2010, 16:10
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36543678
VNI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VNI
Гость
нет, если не нашли - то не нашли. ничего добавлять не нужно.
Спасибо огромное!!! прогнала на тесте работает. теперь попробую на большом количестве строк. Очень надеюсь, что скорость будет приемлемая.
...
Рейтинг: 0 / 0
26.03.2010, 08:51
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36543942
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: VNI
> К сообщению приложен файл (Книга1.xls): cкачать. Размер - 15Kb

На пример данных не похоже. потому что только 5 столбцов, а в коде идут операции и с 18 столбцом. Ну да ладно.
в твоем файле примем что данные на Лист2 это VNIданные одного листа которые нужно дополнит колонкой с соответствующими значениями со второго листа., а Лист1 это данные которыми нужно дополнять. Сверять данные на листах нужно по данным из столбца "Номер".

Закончили с условиями, теперь решение:
1). Копируем столбец "Номер" в столбец "А" на Лист2
2). Переходим на Лист1 и в ячейке F2 пишем формулу: =ВПР(D2;Лист2!$A$2:$E$7;3;ЛОЖЬ)
3). Протягиваем эту формулу по всем строкам. После чего получаем по некоторым ячейкам "имя №", а по некоторым ячейкам #Н/Д.
4). Ставим Автофильтр по всей таблице и по столбцу F выбираем показывать ячейки содержищие #Н/Д
5). Отфильтрованные строки и будут искомыми на добавление. Их нужно скопировать и вставить в Лист2.

Всё. Во вложении иллюстрация этого решения
...
Рейтинг: 0 / 0
26.03.2010, 10:47
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36544646
VNI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VNI
Гость
Игорь,
спасибо! попробую.

По поводу варианта с Find. он ищет так:
если строка "1 10.01.2010", то под совпадение попадут строки "1 10.01.2010", "21 10.01.2010", "12341 10.01.2010". о, как. поищу у find настройки какие-нибудь.
...
Рейтинг: 0 / 0
26.03.2010, 14:04
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36544688
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
VNI
если строка "1 10.01.2010", то под совпадение попадут строки "1 10.01.2010", "21 10.01.2010", "12341 10.01.2010". о, как. поищу у find настройки какие-нибудь.Если настройки не найдёшь, то можно после поиска просто сравнивать найденное значение с искомым и если совпадает, то делать нужные действия.Например в моём коде это было бы так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
Sub test()
 Dim ch As Range
 Dim c As Range
 Dim firstAddress As String
 Dim ran1 As Range
 Dim ran2 As Range
 
 Application.ScreenUpdating = False
 Application.Calculation = xlCalculationManual

 Set ran1 = Intersect(Worksheets( 1 ).UsedRange, Worksheets( 1 ).Columns( 1 ))
 Set ran2 = Intersect(Worksheets( 2 ).UsedRange, Worksheets( 2 ).Columns( 1 ))
  
 
 For Each ch In ran2
  Set c = ran1.Find(ch.Value, LookIn:=xlValues)
    
  If Not c Is Nothing Then
   firstAddress = c.Address
   Do
     If c.Value = ch.Value Then
       c.Offset( 0 ,  1 ).Value = ch.Offset( 0 ,  2 ).Value
     End If
     Set c = ran1.FindNext(c)
   Loop While Not c Is Nothing And c.Address <> firstAddress
  End If
 Next ch
 
 
 Application.Calculation = xlCalculationAutomatic
 Application.ScreenUpdating = True

End Sub
...
Рейтинг: 0 / 0
26.03.2010, 14:15
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36544775
VNI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VNI
Гость
выкрутилась вот так:
Код: plaintext
If Left(Trim(c.Value),  5 ) = Left(Trim(ch.Value),  5 ) And Right(Trim(c.Value),  5 ) = Right(Trim(ch.Value),  5 ) Then...
...
Рейтинг: 0 / 0
26.03.2010, 14:37
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36544782
VNI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VNI
Гость
о простом сравнении я почему-то не подумала)))))))))))) все, коллапс мозга.
...
Рейтинг: 0 / 0
26.03.2010, 14:38
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36544819
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
VNI,

Немного оптимизировал код с учетом того, что данные на первом столбце первого листа не повторяются.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
Sub test()
 Dim ch1 As Range
 Dim ch2 As Range
 Dim firstAddress As String
 Dim ran1 As Range
 Dim ran2 As Range
 Dim x
 
 x = Timer()
 
 Application.ScreenUpdating = False
 Application.Calculation = xlCalculationManual
 Application.EnableEvents = False
 
 Set ran1 = Intersect(Worksheets( 1 ).UsedRange, Worksheets( 1 ).Columns( 1 ))
 Set ran2 = Intersect(Worksheets( 2 ).UsedRange, Worksheets( 2 ).Columns( 1 ))
  
 
 For Each ch2 In ran2
  Set ch1 = ran1.Find(ch2.Value, LookIn:=xlValues)
    
  If Not ch1 Is Nothing And ch1.Value = ch2.Value Then
    ch1.Offset( 0 ,  4 ).Value = ch2.Offset( 0 ,  1 ).Value
  End If
  
 Next ch2
 
 Application.EnableEvents = True
 Application.Calculation = xlCalculationAutomatic
 Application.ScreenUpdating = True
 
 MsgBox "Прошло " & Timer() - x & " секунд.", vbInformation

End Sub

Протестировал на своих данных, где по 35 тысяч строк на каждом листе. Макрс выполнился за 332 секунды.
Проделал тоже самое с помощью ВПР, макрос выполнился за 17 секунд.
Правда в моем случае для каждой строки первого листа имелась в наличии строка во втором листе.
У вас-же я как понял на второй лист добавляются просто некоторые строки, по которым бы вы хотели изменить значения на втором листе. А все остальные должны при этом не изменяться.
В этом случае просто так ВПР-ом не обойтись, немного нужно поизвращаться.

Приведенный код можно ускорить, если использовать метод двух курсоров как предлагает Shocker.Pro. Но надо при этом правильно отсортировать данные, возможны проблемы если данные в ключевом поле первого листа не совсем "одинакового типа".
...
Рейтинг: 0 / 0
26.03.2010, 14:52
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36544845
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
Блин не заметил, что когда тестировал код, у меня позиции столбцов были другие.

В вашем случае вместо
Код: plaintext
ch1.Offset( 0 ,  4 ).Value = ch2.Offset( 0 ,  1 ).Value
надо
Код: plaintext
ch1.Offset( 0 ,  1 ).Value = ch2.Offset( 0 ,  2 ).Value
...
Рейтинг: 0 / 0
26.03.2010, 14:58
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36544850
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Djon PlayerПриведенный код можно ускорить, если использовать метод двух курсоров как предлагает Shocker.Pro.

Я, наконец, вернулся. Как у вас тут, смогли сделать достаточно быстрый алгоритм, с достаточной скоростью обрабатывающий данные автора? Или попробовать сделать двумя курсорами?
...
Рейтинг: 0 / 0
26.03.2010, 14:59
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36544858
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
Shocker.ProDjon PlayerПриведенный код можно ускорить, если использовать метод двух курсоров как предлагает Shocker.Pro.

Я, наконец, вернулся. Как у вас тут, смогли сделать достаточно быстрый алгоритм, с достаточной скоростью обрабатывающий данные автора? Или попробовать сделать двумя курсорами?
Я сделал код, в принципе по сравнению с 5 с половиной часами намного быстрее.
Но лучше думаю сделать именно методом двух курсоров.
Как раз тоже собираюсь это проделать.
...
Рейтинг: 0 / 0
26.03.2010, 15:01
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36544866
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
А вот и мой метод двух курсоров:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
Sub test()
 Dim ch1 As Range
 Dim ch2 As Range
 Dim firstAddress As String
 Dim ran1 As Range
 Dim ran2 As Range
 Dim r1 As Long
 Dim r2 As Long
 Dim x
 
 x = Timer()
 
 Application.ScreenUpdating = False
 Application.Calculation = xlCalculationManual
 Application.EnableEvents = False
 
 Set ran1 = Intersect(Worksheets( 1 ).UsedRange, Worksheets( 1 ).Columns( 1 ))
 Set ran2 = Intersect(Worksheets( 2 ).UsedRange, Worksheets( 2 ).Columns( 1 ))
 
 
 r1 = ran1.Row
 r2 = r1 + ran1.Rows.Count -  1 
 
 For Each ch2 In ran2
  Set ch1 = ran1.Find(ch2.Value, LookIn:=xlValues)
  r1 = ch1.Row
  
  Set ran1 = Worksheets( 1 ).Range(Worksheets( 1 ).Cells(r1,  1 ), Worksheets( 1 ).Cells(r2,  1 ))
  If Not ch1 Is Nothing And ch1.Value = ch2.Value Then
   ch1.Offset( 0 ,  1 ).Value = ch2.Offset( 0 ,  2 ).Value
  End If
  
 Next ch2
 
 Application.EnableEvents = True
 Application.Calculation = xlCalculationAutomatic
 Application.ScreenUpdating = True
 
 MsgBox "Прошло " & Timer() - x & " секунд", vbInformation
 
End Sub

На этот раз на моих данных код выполнился за 3 секунды.
Перед использованием предпологается что данные на первом и втором листе отсортированы по возрастанию по первому столбцу.
...
Рейтинг: 0 / 0
26.03.2010, 15:11
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36545448
.Михаил.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
.Михаил.
Участник
может пригодиться... "быстро"
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub test()
Dim i As Long, j As Integer, list1, x
Dim s As String
Set list1 = Sheets(Лист1")
s = list1.Range(list1.Cells( 1 ,  1 ), list1.Cells( 40000 ,  256 )).Address: x = list1.Range(s)
For i =  1  To UBound(x,  1 )
    For j =  1  To UBound(x,  2 )
        x(i, j) = Rnd
    Next
Next
list1.Range(s) = x
End Sub
...
Рейтинг: 0 / 0
26.03.2010, 18:11
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36545504
zchvv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zchvv
Участник
VNI,

у метода find есть еще параметры: LookAt:=xlWhole / xlPart, SearchOrder:=xlRows / xlColumns
...
Рейтинг: 0 / 0
26.03.2010, 18:30
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36545670
zchvv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zchvv
Участник
...
Рейтинг: 0 / 0
26.03.2010, 21:22
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36545676
zchvv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zchvv
Участник
VNI,

попробуй применить к своим большим таблицам это. Чтобы уложиться в 100 кб, пришлось отсечь многое. Я работаю с таблицами до 10000 строк. Если будет интересно, спрашивай - отвечу. Щелкая по полям ввода, будешь вводить имена листов и номера столбцов. Твои два листа затащи в эту книгу либо с помощью кнопок, либо руками. Посмотри код.
...
Рейтинг: 0 / 0
26.03.2010, 21:30
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36545690
zchvv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zchvv
Участник
...
Рейтинг: 0 / 0
26.03.2010, 21:58
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36545692
zchvv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zchvv
Участник
Прошу прощения, 1-й вариант не нужно рассматривать.
...
Рейтинг: 0 / 0
26.03.2010, 22:03
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36545750
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
.Михаил.,

Изучая ваш код, случайно получил способ, как подвесить Excel.
Код: plaintext
Cells.Value = Rnd
В результате появляется сообщение о недостаточности ресурсов.
...
Рейтинг: 0 / 0
26.03.2010, 23:15
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36545852
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
У меня тоже есть готовый код для таких случаев, похожий на код от zchvv. Правда у меня объёмы поменьше, так что за скоростью не гнался. Делает то, что надо автору, через Find, может сравнивать и копировать по многим столбцам (не подряд в том числе), есть опции по пробелам и пометки о совпадении...
Как вариант:
http://hugo.nxt.ru/CompareFiles.Find.rar
...
Рейтинг: 0 / 0
27.03.2010, 00:48
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36545910
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Сейчас померил скорость - 3000х3000 несовпадающих записей сверял 40 сек. Проц 2.02ГГц Целерон.
...
Рейтинг: 0 / 0
27.03.2010, 02:03
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36545934
zchvv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zchvv
Участник
Забыл поменять все Integer на Long. Протестировал на 50000 строках. Если убрать прогресс и подсчет перенесенных значений, будет быстрее, но все равно медленно!!!
...
Рейтинг: 0 / 0
27.03.2010, 06:17
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36545953
zchvv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zchvv
Участник
Убрал из кода прогресс, подсчет перенесенных значений и цикл по массиву текстбоксов (оставил только А(1) и В(1). На 50000 строках - 13 минут.
...
Рейтинг: 0 / 0
27.03.2010, 08:18
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36545955
zchvv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zchvv
Участник
Окончательно.
...
Рейтинг: 0 / 0
27.03.2010, 08:31
| Ответить | Цитировать | Написать  
сопоставление данных на двух листах
    #36575611
VNI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VNI
Гость
выпала из рабочего процесса на две недели)
теперь в строю. спасибо всем огромное. буду разбираться.
...
Рейтинг: 0 / 0
13.04.2010, 10:07
| Ответить | Цитировать | Написать  
45 сообщений из 45, показаны все 2 страниц
  все  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / сопоставление данных на двух листах
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]