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 Хиелп плиз П.С. Например исходные данные-результат:Подробнее... |