Обратитесь к нескольким столбцам, чтобы удалить последнюю ячейку в столбце

Question

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

'     Delete last cell of columns C and E
Worksheets("Sheet1").Columns ("C"), Columns("E").End(xlDown).Cells.Delete

Спасибо

Answer 1

Вы можете использовать следующую функцию, чтобы очистить последнюю ячейку в столбце

 Function ClearLastCell(colLetter As String, Optional ws As Worksheet)

    If ws Is Nothing Then
        Set ws = ActiveSheet
    End If

    With ws
        .Range(colLetter & .Rows.Count).End(xlUp).Clear
    End With

End Function

В вашем случае для столбца C и E

Sub ClearIt()
    Dim ws As Worksheet
    Set ws = Worksheets("Sheet1")
    ClearLastCell "E", ws
    ClearLastCell "C", ws
End Sub