Макрос написал. Записывается в Personal.xls для того что бы был доступен из всех открытых книг. Но вот с его автозапуском - проблемма.
Кнопочка на панели не устроит?
ActiveCell.FormulaR1C1 = "1"
Cells.Find(What:="1", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Selection.Clear
End Sub
"Хочешь получить умный ответ -
спрашивай умно" © И.Гете или используй
поискНаша величайшая сила не в том, что мы никогда не спотыкаемся, а в том, что,
упав, мы находим в себе силы поднятся и идти дальше. © Ральф Вальдо Эмерсон