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

竖起大拇指向Chris教我一种新方法!