Страницы: 1
RSS
Макрос для заполнения столбца с разделителями
 
Всем привет!

Как модифицировать макрос так, чтобы между разделителями в столбце А:А были месяцы начиная с января?
Код
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
[P]Файлов много, разделители могут находиться в разных диапазонах.

Как это происходит вручную:
1) Вписываю в ячейку А1 "Январь"
2) Ctrl + C
3) Выделяю диапазон Ctrl + Shift + Down
4) Ctrl + Shift + V ----> Вставить All
В столбце С:С как это все должно выглядеть

Файл-пример прикладываю
 
макросом можно сделать. Но вот так конкретно:
Цитата
3) Выделяю диапазон Ctrl + Shift + Down
4) Ctrl + Shift + V ----> Вставить All
Почему такая жесткая привязка к сочетанию клавиш?
И зачем что-то выделять? Последняя заполненная ячейка в колонке А всегда будет концом декабря? И всегда будут помещаться все 12 месяцев в промежутке?
Если файлов много лучше разместить в надстройке
 
Александр Моторин,
Последняя ячейка всегда будет декабрь, помещаются все 12 месяцев по порядку начиная с января
 
Не знаю я как модифицировать макрос. Вот это вроде бы делает то, что вы просите.
Я не волшебник, я только учусь.
 
Wiss, все работает! Большое спасибо!
Страницы: 1
Наверх