Очистить данные столбца, кроме первых заголовков | Excel | VBA | - PullRequest
0 голосов
/ 26 мая 2019

Я хочу удалить данные столбца «A» и «B» по нажатию кнопки => за исключением первой ячейки обоих столбцов A и B, которые являются заголовками

MyЛист:

Sheet

    Private Sub CommandButton1_Click()

        Dim myRange As Range
        Set myRange = ThisWorkbook.Worksheets("Sheet2").Range("A:B")
        myRange.Clear

   End Sub

Очистить только данные [кроме первых заголовков A: B]

1 Ответ

2 голосов
/ 26 мая 2019

Здесь:

Option Explicit
Private Sub CommandButton1_Click()

    Dim myRange As Range
    Dim LastRow As Long 'declare a long variable to find the last row

    With ThisWorkbook.Sheets("Sheet2")
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row 'last row on column A
        Set myRange = .Range("A2:B" & LastRow) 'this way you avoid headers and clear everything
        myRange.Clear
    End With

End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...