Уважаемые форумчане, доброго времени суток.
Столкнулся со следующей проблемой.
Есть умная таблица которая сделана на основе выгрузки из 1С, что привело к тому, что даты в таблице записаны как текст.
Сейчас пытаюсь написать макрос для перевода даты из текста в даты. Записал макрорекодером умножение (через специальную вставку) определенных столбцов умной таблице на 1, но в макросе прописываются диапазоны вида D2:D8.
Вопрос в следующим, так как данные динамические и количество строк умной таблицы может быть разное, то как можно использовать наименование определенных столбцов умной таблицы (без строки заголовка) для составления формулы умножения этих данных на 1.
Сейчас у меня получается следующий макрос:
Столкнулся со следующей проблемой.
Есть умная таблица которая сделана на основе выгрузки из 1С, что привело к тому, что даты в таблице записаны как текст.
Сейчас пытаюсь написать макрос для перевода даты из текста в даты. Записал макрорекодером умножение (через специальную вставку) определенных столбцов умной таблице на 1, но в макросе прописываются диапазоны вида D2:D8.
Вопрос в следующим, так как данные динамические и количество строк умной таблицы может быть разное, то как можно использовать наименование определенных столбцов умной таблицы (без строки заголовка) для составления формулы умножения этих данных на 1.
Сейчас у меня получается следующий макрос:
Код |
---|
Range("V1").Select ActiveCell.FormulaR1C1 = "1" Range("V1").Select Selection.Copy Range("V1,D2:D8,H2:H8,I2:I8,K2:K8").Select Range("K2").Activate Range("V1,D2:D8,H2:H8,I2:I8,K2:K8,L2:L8,N2:N8,O2:O8").Select Range("O2").Activate Range("V1,D2:D8,H2:H8,I2:I8,K2:K8,L2:L8,N2:N8,O2:O8,Q2:Q8,R2:R8").Select Range("R2").Activate Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _ SkipBlanks:=False, Transpose:=False |
Заранее спасибо!
Кто ясно мыслит, тот ясно излагает.