vikkiv
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Знатоки, как можно решить следующий вопрос,
Имеется Workbook.Sheet("DT") с колонами данных, допустим 2мя (А и B), и миллионом строк (т.е. Range("A1:B1000000")
Первая колонна в формате 20110903 (т.е. год, месяц, число), вторая - неважно, текст/количественные данные или что-то ещё.
Задача: Раскидать весь лист в отдельные файлы по месяцам не обращая внимания на число (т.е. по маске 201109,201110,...201309) и не меняя данные но
>> Название файлов и листов по маске (т.е. 201109,201110,...201309) элементарно через.
'-----
wbk=Workbook.Add
Application.DisplayAlerts = False
Worksheets(1).Name = variablemask
With wbk
.SaveAs Filename:="C:\v\" & variablemask & ".xls"
.Close
End With
Application.DisplayAlerts = True
'-----
>> Первая строка каждого файла/листа содержт заголовок (напр. <date> , <value>) .. здесь тоже просто Range("A1:B1")=Array("<date>", "<value>")
Проблема: Не получается реализовать алгоритм выбора данных из исходного массива. 
Пробовал и Instr и циклы, и фильтры типа Range("A1:B1000000").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("C2"), Unique:=True
Хиелп плиз 
П.С. Например исходные данные-результат:Подробнее... |
). 
