koeだめ 過去アーカイブ[〜2013-12-14]

最新情報は https://www.pixiv.net/fanbox/creator/3780274 にて

範囲を選択し、カレントセルの下のセルからカレントセルに設定された数値分下にあるセルまでをクリアするコード

タイトル長!

Sub hoge()
    Dim r As Range
    Dim skip_num As Integer
    skip_num = 0
    
    For Each r In Selection
        Debug.Assert skip_num >= 0
        
        If skip_num = 0 Then
            skip_num = r.Value
        Else
            r.Clear
        End If
        skip_num = skip_num - 1
    Next r
End Sub

補足

うん、Selectionをそのままeachで回したらいかんね。複数列選択されてたときに爆発する。