ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / сопоставление данных на двух листах
20 сообщений из 45, страница 2 из 2
  2  все
сопоставление данных на двух листах
    #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
| Ответить | Цитировать | Написать  
20 сообщений из 45, страница 2 из 2
  2  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / сопоставление данных на двух листах
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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