Здравствуйте уважаемые форумчане, не могу добиться от кода выполнение команды. Необходимо протянуть формулу в диапозоне ячеек "R:T"до конца табличной части документа в excel, выделяет определённый диапазон, но документ всегда разный соответственно. Всё получается если это просто таблица и ячейки не объедены, научился находить последнюю строку и протягивать формулу до ближайшей пустой ячейки, но вот сделать это в форме документа не получается. Может кто намекнёт как это решить, или куда копать? Заранее спасибо.
Код |
---|
Sub AutoFill_() Cells.Replace What:="*/ ", Replacement:="", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Range("R34:T34").Select Range(Selection, Selection.End(xlDown)).Select Selection.NumberFormat = "General" Range("R34:T34").Select ActiveCell.FormulaR1C1 = "=RC[-14]" Range("R34:T34").Select Selection.AutoFill Destination:=Range("R34:T43"), Type:=xlFillDefault Range("R34:T43").Select End Sub |