excel - 清除列和行

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

感谢克里斯教我一种新方法!