Excel VBA代码清除列和行

需要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

对于那些不想丢失格式化或数据validation等事情的人来说， t.thielemans的解答是可以的

Range("A21:J200").ClearContents

这将确保除了所选单元格的当前值之外，保留所有内容。