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代碼，清除列和行

回答

相關問題