зачистка вставляемых строк

[hakervanya]

такая проблема: есть таблица, в ней макрос, который должен копировать последнюю строку, очищать ее от значений и вставлять в низ таблицы. вроде написан правильно, но глючит... помогите найти ошибку.

[nolte]

скажи какая разница между последней строкой и низом таблицы
у тебя в коде макроса3 Rows("14:14") поменяй на Range("14:14") и будет вставлять строку выделенную в 14 строку хотя таблица у тебя ограничена столбцами мона наверно и так Range("A14:G14)

[nolte]

Range("A14:G14")

[Useful83]

Try this code

Sub Macro4()
    Dim LastRow As Long
    Dim LastColumn As Long
    Dim i As Long
    LastRow = Cells(Rows.Count, "B").End(xlUp).Row
    LastColumn = Cells(LastRow, Columns.Count).End(xlToLeft).Column
    Rows(LastRow).Copy _
    Destination:=Rows((LastRow + 1))
 Rows(LastRow + 1).SpecialCells(xlCellTypeConstants).ClearContents
End Sub

[hakervanya]

Сообщение от nolte

скажи какая разница между последней строкой и низом таблицы
у тебя в коде макроса3 Rows("14:14") поменяй на Range("14:14") и будет вставлять строку выделенную в 14 строку хотя таблица у тебя ограничена столбцами мона наверно и так Range("A14:G14)

честно говоря, вообще не понимаю зачем Вы это предложили. макрос должен выполнять совершенно другую цель.

[hakervanya]

Сообщение от Useful83

Try this code

Sub Macro4()
    Dim LastRow As Long
    Dim LastColumn As Long
    Dim i As Long
    LastRow = Cells(Rows.Count, "B").End(xlUp).Row
    LastColumn = Cells(LastRow, Columns.Count).End(xlToLeft).Column
    Rows(LastRow).Copy _
    Destination:=Rows((LastRow + 1))
 Rows(LastRow + 1).SpecialCells(xlCellTypeConstants).ClearContents
End Sub

Макрос ничего не делает.

[Useful83]

Сообщение от hakervanya

Макрос ничего не делает.

Hi,
(with definition)

Sub Macro4()
    Dim LastRow As Long
    Dim LastColumn As Long
    Dim i As Long
    LastRow = Cells(Rows.Count, "B").End(xlUp).Row 'it gives the last row number
    LastColumn = Cells(LastRow, Columns.Count).End(xlToLeft).Column 'it gives the last column number
    Rows(LastRow).Copy _
    Destination:=Rows((LastRow + 1)) 'Copy the last row and paste one row down
 Rows(LastRow + 1).SpecialCells(xlCellTypeConstants).ClearContents 'Delete constants from the pasted row
End Sub

(P.S Pay attention 3 rd row after running the macro for the first time)