3

列をAからJに、行を21から200にクリアするには、vbaコードが必要です。以下のコードは、列を最後までクリアしています。列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
4

2 に答える 2

5

これでうまくいくはずです！

Range("A21:J200").Clear

新しい方法を教えてくれた Chris に感謝します!

于 2012-10-24T09:44:14.720 に答える
1

書式設定やデータ検証などを失いたくない人のためのt.thielemansの回答のスピンオフ

Range("A21:J200").ClearContents

これにより、選択したセルの現在の値を除くすべてが保持されます。

于 2014-10-08T18:36:25.397 に答える