поиск одинаковых символов в столбцах на разных листах

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » поиск одинаковых символов в столбцах на разных листах (Макросы/Sub)

Danko

Дата: Пятница, 03.04.2015, 14:51 | Сообщение № 1

Группа: Заблокированные

Ранг: Прохожий

Сообщений: 7

Репутация: -6 ±

Замечаний: 40% ±

Excel 2013

Доброго времени суток. необходим код поиска одинаковых символов в столбцах на разных листах и если не сложно, то еще и поиск разных данных.
Заранее спасибо

Миронов Андрей

Ответить

Roman777

Дата: Пятница, 03.04.2015, 14:54 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 980

Репутация: 127 ±

Замечаний: 0% ±

Excel 2007, Excel 2013

Danko, Добрый день!
Обычный поиск-замена тоже может работать со всеми листами в книге...

Много чего не знаю!!!!

Ответить

Danko

Дата: Суббота, 04.04.2015, 09:49 | Сообщение № 3

Группа: Заблокированные

Ранг: Прохожий

Сообщений: 7

Репутация: -6 ±

Замечаний: 40% ±

Excel 2013

мне нужно чтобы именно по столбцам искал одинаковые(разные) и выводил на 3 лист

Миронов Андрей

Ответить

Pelena

Дата: Суббота, 04.04.2015, 09:54 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 19197

Репутация: 4423 ±

Замечаний: ±

Excel 365 & Mac Excel

Danko, без файла с примером разговор ни о чём

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Danko

Дата: Суббота, 04.04.2015, 10:07 | Сообщение № 5

Группа: Заблокированные

Ранг: Прохожий

Сообщений: 7

Репутация: -6 ±

Замечаний: 40% ±

Excel 2013

Сравнение данных по столбцам, т.е. сравниваются данные 1 столбца 2 листа и 1 столбца 3 листа, и одинаковые (разные ) данные выводятся на 3 лист

К сообщению приложен файл: 8461737.png (3.7 Kb) · 2200562.png (3.4 Kb)

Миронов Андрей

Ответить

KuklP

Дата: Суббота, 04.04.2015, 11:18 | Сообщение № 6

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Danko, Вы издеваетесь? Тут не форум по фотошопу. Форумчанам прикажете с Ваших картинок данные заводить? Не можно, но стоить будет дорого.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

Danko

Дата: Воскресенье, 05.04.2015, 12:01 | Сообщение № 7

Группа: Заблокированные

Ранг: Прохожий

Сообщений: 7

Репутация: -6 ±

Замечаний: 40% ±

Excel 2013

[vba]

Код

KuklP, нет не издеваюсь, возможно вы на столько тупы, что-не можете по словам и скринам понять!
Вот программный код, который требовался
For i = 1 To 1048576
     For j = 1 To 16384
       For k = 1 To 1048576
         For m = 1 To 16384
           If Лист1.Cells(i,j) = Лист2.Cells(k,m) Then MsgBox("одинаковые значения в ячейке (" & i & "," & j & ") 1-го листа и ячейке (" & k & "," & m & ") 2-го листа")
         Next m
       Next k
     Next j
Next i

[/vba]
[moder]Бан за хамство и нарушение Правил форума п.3, 5а. Тема закрыта[/moder]

Миронов Андрей

Сообщение отредактировал Pelena - Воскресенье, 05.04.2015, 12:19

Ответить

alex77755

Дата: Воскресенье, 05.04.2015, 12:11 | Сообщение № 8

Группа: Проверенные

Ранг: Обитатель

Сообщений: 362

Репутация: 64 ±

Замечаний: 0% ±

И дождались окончания его выполнения?
лет 100500 понадобится. Если надо точно могу прикинуть
25553,9424464665 лет приблизительно. При условии выполнения как у меня в тесте 36624793,6 операций в секунду
И это без чтения с листа!! простоо цикл с проверкой булевой переменной
С чтением с листа и сравнением значений умножь это время на 638,68571

Могу помочь в VB6, VBA
Alex77755@mail.ru

Сообщение отредактировал alex77755 - Воскресенье, 05.04.2015, 12:43

Ответить

alex77755

Дата: Воскресенье, 05.04.2015, 12:15 | Сообщение № 9

Группа: Проверенные

Ранг: Обитатель

Сообщений: 362

Репутация: 64 ±

Замечаний: 0% ±

1. если работать с листами, то, хотя бы, find заюзать.
2. зачем лопатить весь лист? Про UsedRange хотя бы посмотреть.
3. если не с листа работать, то заюзать словари и массивы

Могу помочь в VB6, VBA
Alex77755@mail.ru

Ответить

Страница 1 из 1
1