Excel VBA код для очистки столбца и строки

Question

Нужен код vba для очистки столбца от A до J и строки от 21 до 200. Ниже код очищает столбец до конца, необходимо удалить до столбца J

Function ClearSummary()


Const TestName_Col = "B"   
Const FirstRow_Num = "21"   

    MaxRowNumber = Range(TestName_Col & "200").End(xlUp).Row

    If (MaxRowNumber > FirstRow_Num) Then
        'select all rows in range & clear
        CellReference = FirstRow_Num & ":" & MaxRowNumber
        Rows(CellReference).Select
        Selection.ClearContents
        Selection.Hyperlinks.Delete
        Selection.Font.Underline = xlUnderlineStyleNone
        Selection.Font.ColorIndex = 0
    End If
End Function

Answer 1

Это должно сработать!

Range("A21:J200").Clear

Спасибо Крису за то, что он научил меня новому методу!

Answer 2

Ответ от t.thielemans для тех, кто не хочет потерять такие вещи, как форматирование или проверка данных

Range("A21:J200").ClearContents

Это обеспечит сохранение всего, кроме текущего значения выбранных ячеек.