|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.06.2018, 00:01 | #1 |
Регистрация: 28.03.2018
Сообщений: 7
|
Перестал работать написанный макрос
Добрый вечер. Есть определенная таблица с данными. Из столбца Е ищу совпадения по столбцам А и В, если такое совпадение есть, то данные из столбца F переносятся в столбец C.
Для этого написан был макрос: Sub test() Dim arr(), i&, itxt Dim dic As Object Set dic = CreateObject("Scripting.Dictionary" ) With Лист1 arr = .Range(.[e2], .[f2].End(xlDown)).Value For i = 1 To UBound(arr) dic.Item(CStr(arr(i, 1))) = arr(i, 2) Next i Erase arr arr = .Range(.[c2], .[a2].End(xlDown)).Value For i = 1 To UBound(arr) itxt = Trim(arr(i, 1)) & " " & Trim(arr(i, 2)) If dic.exists(itxt) Then arr(i, 3) = dic.Item(itxt) Next i .Range("a2").Resize(UBound(arr), UBound(arr, 2)).Value = arr End With End Sub Дело в том, что в столбцы E и C будут подставляться различные данные, например СНИЛС, номер документа ,адрес прописки и надо, чтобы макрос работал при данных изменениях. Но суть поиска по заданным столбцам E, A и B, остается та же. Работал макрос некоторое время, сейчас не работает. Возможно, я не вижу в чём ошибка. Подскажите, пожалуйста. Вопрос достаточно срочный. Заранее спасибо. Последний раз редактировалось А л е н а; 13.06.2018 в 00:29. Причина: Ошибку нашла сама. |
13.06.2018, 01:05 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
13.06.2018, 01:13 | #3 |
Регистрация: 28.03.2018
Сообщений: 7
|
IgorGO, спасибо большое. Я уже самостоятельно нашла ошибку.
Прописала Dic.comparemode = 1, чтобы не учитывался регистр. И всё получилось и работает для всех значений. Все равно спасибо, что откликнулись. |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перестал работать макрос с ADO Connection | armati lepori | Microsoft Office Excel | 1 | 08.12.2016 20:53 |
перестал работать макрос, запускающий поиск в Хроме | caute | Microsoft Office Word | 0 | 26.05.2015 06:48 |
перестал работать внешник | BosunPo | Компьютерное железо | 10 | 10.02.2014 17:00 |
Перестал работать тестер | kanich | Помощь студентам | 4 | 15.11.2010 13:02 |