清除列和行

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

- user1770752

Answer 1

这应该能解决问题！

Range("A21:J200").Clear

赞赏 Chris 教给我一种新的方法！

- CustomX

---

无需使用“Select”，只需一步完成：“Range("A21:J200").Clear”。这将清除单元格范围A21至J200的内容。 - chris neilsen

提醒大家，这将清除所有已保存的公式，而不仅仅是当前值。 - The Thirsty Ape

Answer 2

一个针对不想失去格式或数据验证等内容的“t.thielemans”答案的衍生版本。

Range("A21:J200").ClearContents

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

- The Thirsty Ape