Excel的VBA代码，清除列和行

需要VBA代码从一个明确的列J和21排至200以下代码清除列，直到结束，需要删除，直到J列Excel的VBA代码，清除列和行

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

来源

2012-10-24 user1770752

如何反馈？ :) – CustomX

这应该做的伎俩！

Range("A21:J200").Clear

竖起大拇指向克里斯教我一种新的方法！

来源

2012-10-24 09:44:14 CustomX

不需要'选择'，只需一步完成'Range（“A21：J200”）。清除' –

只需要给所有人提供FYI，这将清除所有已保存的公式，而不仅仅是当前值。 – foochow

一个分拆的t.thielemans答案对于那些不想失去的东西，如格式或数据验证谁

Range("A21:J200").ClearContents

这将确保你把一切除了当前值选中的单元格。

来源

2014-10-08 18:36:25 foochow

Excel的VBA代码，清除列和行

回答

相关问题