Средство малой механизации.

[icamel]

Давно собираюсь написать большой пост с некоторыми хитростями условного форматирования в Экселе,.. или про работу таблицами в нем же. То есть не с таблицами, а с тем, что в экселе форматируется как таблица. Ну, короче, list objects. Когда-нибудь напишу оба. А пока вот я мучался-мучался с тем что клавиатурой нельзя продолжить последовательность (ну вот если написать "понедельник", "вторник", выделить обе ячейки и потянуть за черную точку дальше и начнут появляться "среда", "четверг", и т.д.), да и написал уже макрос.

Sub ContinueNumbering()

Const lookBackDepth = -2

Dim currentCell As Range

Application.ScreenUpdating = False

Set currentCell = ActiveCell
Range(currentCell.Offset(lookBackDepth, 0), currentCell.Offset(-1, 0)).Select
Selection.AutoFill Destination:=Range(currentCell.Offset(lookBackDepth, 0), currentCell), Type:=xlFillDefault
currentCell.Select

Application.ScreenUpdating = True

End Sub