excel - 清除列和行

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 教我一种新方法！

Answer 2

t.thielemans的衍生产品，适用于那些不想丢失格式或数据验证等内容的人

Range("A21:J200").ClearContents

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