|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.02.2019, 13:53 | #1 |
Пользователь
Регистрация: 23.11.2018
Сообщений: 21
|
VBS как написать цикл Do While... Loop с исключением повторений
Есть столбецы с повторяющимися значениями. Есть цикл Do While... Loop обрабатывающий этот столбец до пустого значения. Как избавиться от повторяющихся значений?
Сравнивать нужно по двум ячейкам Cells(i, 2) И Cells(i, 3) Если строки равны по этим параметрам то записывать только одну. Цикл: Код:
|
12.02.2019, 15:26 | #2 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
Можно применить к диапазону .RemoveDuplicates (Данные - Работа с данными - Удалить дубликаты).
Или в VBA сначала собрать в словаре ключи cells(i,2) & vbtab & cells(i,3) , потом сплитить ключи и записывать в хмл.
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
13.02.2019, 14:01 | #3 |
Пользователь
Регистрация: 23.11.2018
Сообщений: 21
|
И как такое через словари сделать?
|
13.02.2019, 15:06 | #4 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
Вместо существующего цикла Do-Loop следующее. Не проверял - файла-примера нет.
Код:
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
15.02.2019, 10:57 | #5 |
Пользователь
Регистрация: 23.11.2018
Сообщений: 21
|
Вот файл.
Заменил Do-Loop на ваш код. Результатат нет т.к. в XML выдаёт <File ID="" Angle=""></File> |
15.02.2019, 10:59 | #6 |
Пользователь
Регистрация: 23.11.2018
Сообщений: 21
|
Разобрался.
Нужно было i поправить i = Range("FirstID").Row 'возвращаем номер строки первой ячейки в таблице дизайнов Спасибо. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Цикл с известным числом повторений (Цикл с параметром) | roykami11er | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 19.12.2018 20:08 |
Цикл с известным числом повторений | roykami11er | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 13.12.2018 12:30 |
написать процедуры для “Цикл For ... Next ” и «Цикл Do ... Loop» по ниже приведенному условию | Кристина_Патачиц | Microsoft Office Excel | 3 | 17.04.2013 17:01 |
Цикл с известным числом повторений. | Getman | Помощь студентам | 9 | 09.06.2012 14:26 |
Цикл с заданным числом повторений | Extrem_um | Помощь студентам | 3 | 02.04.2008 21:00 |