Сообщество IT-специалистов
Ответы на любые вопросы об IT
Профессиональное развитие в IT
Sub Macro1() ' ' Macro1 Macro ' ' Keyboard Shortcut: Ctrl+k ' Selection.Copy Range(Selection, Selection.End(xlDown).Offset(-1)).Select ActiveSheet.Paste Selection.End(xlDown).Select End Sub