Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Макрос удаления дубликатов для Excel 2003 - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос удаления дубликатов для Excel 2003 (Макросы/Sub)
Макрос удаления дубликатов для Excel 2003
sashat1705 Дата: Четверг, 14.10.2021, 16:01 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте. Есть макрос, главное проблема которую не могу решить это, что бы работало удаление дубликатов в 2003 Excel. Чем можно заменить RemoveDuplicates который работает начиная с 2007 Excel?

[vba]
Код
Sub B()
Dim x As Object
Dim Target As ListObject
Set Target = ActiveWorkbook.Worksheets("B").ListObjects("B")

Set x = BP("/sapi/history", "s=" + sym + "&limit=1000")
For Z = 1 To x.Count
Set lr = Target.ListRows.Add

For c = 1 To x(1).Count

lr.Range(c) = x(Z)(Target.HeaderRowRange(c).Formula)
Next c
Next Z
ActiveWorkbook.Worksheets("B").Range("B").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9), Header:=xlYes
End Sub
[/vba]
 
Ответить
СообщениеЗдравствуйте. Есть макрос, главное проблема которую не могу решить это, что бы работало удаление дубликатов в 2003 Excel. Чем можно заменить RemoveDuplicates который работает начиная с 2007 Excel?

[vba]
Код
Sub B()
Dim x As Object
Dim Target As ListObject
Set Target = ActiveWorkbook.Worksheets("B").ListObjects("B")

Set x = BP("/sapi/history", "s=" + sym + "&limit=1000")
For Z = 1 To x.Count
Set lr = Target.ListRows.Add

For c = 1 To x(1).Count

lr.Range(c) = x(Z)(Target.HeaderRowRange(c).Formula)
Next c
Next Z
ActiveWorkbook.Worksheets("B").Range("B").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9), Header:=xlYes
End Sub
[/vba]

Автор - sashat1705
Дата добавления - 14.10.2021 в 16:01
wild_pig Дата: Пятница, 15.10.2021, 15:57 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 515
Репутация: 97 ±
Замечаний: 0% ±

2003, 2013
Чем можно заменить RemoveDuplicates

Объяснением и примером (файл).
 
Ответить
Сообщение
Чем можно заменить RemoveDuplicates

Объяснением и примером (файл).

Автор - wild_pig
Дата добавления - 15.10.2021 в 15:57
Kuzmich Дата: Пятница, 15.10.2021, 17:00 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 629
Репутация: 137 ±
Замечаний: 0% ±

Excel 2003
Кросс https://www.planetaexcel.ru/forum....=144341
Там и решение
 
Ответить
СообщениеКросс https://www.planetaexcel.ru/forum....=144341
Там и решение

Автор - Kuzmich
Дата добавления - 15.10.2021 в 17:00
Nic70y Дата: Пятница, 15.10.2021, 17:19 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 7162
Репутация: 1652 ±
Замечаний: 0% ±

Excel 2010


ЮMoney 41001841029809
 
Ответить
Сообщениеhttp://www.excelworld.ru/forum/10-24127-1#188367

Автор - Nic70y
Дата добавления - 15.10.2021 в 17:19
sashat1705 Дата: Суббота, 16.10.2021, 10:09 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Кросс

И что, я пишу на другом форуме, какое это отношение имеет к кроссу? На других форумах мне не помогли, решение есть но выкидывает ошибку.
 
Ответить
Сообщение
Кросс

И что, я пишу на другом форуме, какое это отношение имеет к кроссу? На других форумах мне не помогли, решение есть но выкидывает ошибку.

Автор - sashat1705
Дата добавления - 16.10.2021 в 10:09
Nic70y Дата: Суббота, 16.10.2021, 10:59 | Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 7162
Репутация: 1652 ±
Замечаний: 0% ±

Excel 2010
И что
ни чего страшного,
но есть п 5.s правил форума


ЮMoney 41001841029809
 
Ответить
Сообщение
И что
ни чего страшного,
но есть п 5.s правил форума

Автор - Nic70y
Дата добавления - 16.10.2021 в 10:59
sashat1705 Дата: Суббота, 16.10.2021, 12:10 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
ни чего страшного

Вам заняться нечем, скучно? По данной проблеме которую я описал, есть что написать?
 
Ответить
Сообщение
ни чего страшного

Вам заняться нечем, скучно? По данной проблеме которую я описал, есть что написать?

Автор - sashat1705
Дата добавления - 16.10.2021 в 12:10
Nic70y Дата: Суббота, 16.10.2021, 12:13 | Сообщение № 8
Группа: Друзья
Ранг: Экселист
Сообщений: 7162
Репутация: 1652 ±
Замечаний: 0% ±

Excel 2010
sashat1705, а вы сообщения читаете?
например №4


ЮMoney 41001841029809
 
Ответить
Сообщениеsashat1705, а вы сообщения читаете?
например №4

Автор - Nic70y
Дата добавления - 16.10.2021 в 12:13
Pelena Дата: Суббота, 16.10.2021, 12:38 | Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 18127
Репутация: 4061 ±
Замечаний: ±

Excel 2016 & Mac Excel
sashat1705, полегче.
Вам совершенно справедливо указали на нарушение Правил форума. Если Вы планируете в дальнейшем использовать ресурс данного форума, придётся их соблюдать


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщениеsashat1705, полегче.
Вам совершенно справедливо указали на нарушение Правил форума. Если Вы планируете в дальнейшем использовать ресурс данного форума, придётся их соблюдать

Автор - Pelena
Дата добавления - 16.10.2021 в 12:38
boa Дата: Воскресенье, 17.10.2021, 02:15 | Сообщение № 10
Группа: Друзья
Ранг: Ветеран
Сообщений: 520
Репутация: 151 ±
Замечаний: 0% ±

2013, 365
sashat1705, Здравствуйте,
((
И что, я пишу на другом форуме, какое это отношение имеет к кроссу?

те же юзеры, помогающие вам здесь, помогают вам и на других сайтах. "Распыляя" их помощь вы снижаете их отдачу.
В принципе, это одни и те же люди, поэтому, нахамивши здесь, вы обеспечите себе репутацию на всех сайтах связанных с EXCEL ;)


 
Ответить
Сообщениеsashat1705, Здравствуйте,
((
И что, я пишу на другом форуме, какое это отношение имеет к кроссу?

те же юзеры, помогающие вам здесь, помогают вам и на других сайтах. "Распыляя" их помощь вы снижаете их отдачу.
В принципе, это одни и те же люди, поэтому, нахамивши здесь, вы обеспечите себе репутацию на всех сайтах связанных с EXCEL ;)

Автор - boa
Дата добавления - 17.10.2021 в 02:15
sashat1705 Дата: Понедельник, 18.10.2021, 11:06 | Сообщение № 11
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Тему можно закрывать, пока рассуждали правила форума, в интернете нашел универсальный макрос который мне помогли подкорректировать под мои задачи. Спасибо всем за помощь.
 
Ответить
СообщениеТему можно закрывать, пока рассуждали правила форума, в интернете нашел универсальный макрос который мне помогли подкорректировать под мои задачи. Спасибо всем за помощь.

Автор - sashat1705
Дата добавления - 18.10.2021 в 11:06
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос удаления дубликатов для Excel 2003 (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!