[[20140418093957]] 『等間隔のデータ消去』(事務員) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『等間隔のデータ消去』(事務員)

いつもお世話になります。
これまでは、以下のコードで増えた分だけ増やしていました。
もっと合理的にならないかと思いご相談に上がりました。
よろしくお願いします。
Worksheets("Sheet5").Range("B5:U14,B18:U27,B31:U40,B44:U53,B57:U66,B70:U79,B83:U92,B96:U105,B109:U118,B122:U131,B135:U144,B148:U157,B161:U170,B174:U183,B187:U196,B200:U209,B213:U222,B226:U235,B239:U248,B252:U261").Clear

< 使用 Excel:Excel2003、使用 OS:WindowsXP >


 こんな感じのことでしょうか。
 Sub DataClear()
    Dim r As Long
    With Worksheets("Sheet5")
        For r = 5 To 252 Step 13
            .Range(.Cells(r, "B"), .Cells(r + 9, "U")).Clear
        Next
    End With
 End Sub

(Mook) 2014/04/18(金) 10:01


Mookさん
今回もありがとうございました。
確認が遅くなりすみませんでした。
こんなコードが書けるようになりたいです。
頑張ります。

(事務員) 2014/04/18(金) 11:42


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.