Всем привет!
Как модифицировать макрос так, чтобы между разделителями в столбце А:А были месяцы начиная с января?
[P]Файлов много, разделители могут находиться в разных диапазонах.
Как это происходит вручную:
1) Вписываю в ячейку А1 "Январь"
2) Ctrl + C
3) Выделяю диапазон Ctrl + Shift + Down
4) Ctrl + Shift + V ----> Вставить All
В столбце С:С как это все должно выглядеть
Файл-пример прикладываю
Как модифицировать макрос так, чтобы между разделителями в столбце А:А были месяцы начиная с января?
Код |
---|
Sub Macro4() ' ' Macro4 Macro ' ' ActiveCell.FormulaR1C1 = "Январь" Range("A1").Select Selection.Copy Range("A2").Select Range(Selection, Selection.End(xlDown)).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Selection.End(xlDown).Select Range("A10").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "Февраль" Range("A10").Select Selection.Copy Range("A11").Select Range(Selection, Selection.End(xlDown)).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Range("A12").Select Selection.End(xlDown).Select ActiveSheet.Paste Application.CutCopyMode = False Range("A17").Select ActiveCell.FormulaR1C1 = "Март" Range("A17").Select Selection.Copy Range("A18").Select Range(Selection, Selection.End(xlDown)).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False End Sub |
Как это происходит вручную:
1) Вписываю в ячейку А1 "Январь"
2) Ctrl + C
3) Выделяю диапазон Ctrl + Shift + Down
4) Ctrl + Shift + V ----> Вставить All
В столбце С:С как это все должно выглядеть
Файл-пример прикладываю