Здравствуйте. Есть макрос, главное проблема которую не могу решить это, что бы работало удаление дубликатов в 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
sashat1705, полегче. Вам совершенно справедливо указали на нарушение Правил форума. Если Вы планируете в дальнейшем использовать ресурс данного форума, придётся их соблюдать
sashat1705, полегче. Вам совершенно справедливо указали на нарушение Правил форума. Если Вы планируете в дальнейшем использовать ресурс данного форума, придётся их соблюдатьPelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
И что, я пишу на другом форуме, какое это отношение имеет к кроссу?
те же юзеры, помогающие вам здесь, помогают вам и на других сайтах. "Распыляя" их помощь вы снижаете их отдачу. В принципе, это одни и те же люди, поэтому, нахамивши здесь, вы обеспечите себе репутацию на всех сайтах связанных с EXCEL
И что, я пишу на другом форуме, какое это отношение имеет к кроссу?
те же юзеры, помогающие вам здесь, помогают вам и на других сайтах. "Распыляя" их помощь вы снижаете их отдачу. В принципе, это одни и те же люди, поэтому, нахамивши здесь, вы обеспечите себе репутацию на всех сайтах связанных с EXCEL boa
Тему можно закрывать, пока рассуждали правила форума, в интернете нашел универсальный макрос который мне помогли подкорректировать под мои задачи. Спасибо всем за помощь.
Тему можно закрывать, пока рассуждали правила форума, в интернете нашел универсальный макрос который мне помогли подкорректировать под мои задачи. Спасибо всем за помощь.sashat1705
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
