[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『等間隔のデータ消去』(事務員)
いつもお世話になります。
これまでは、以下のコードで増えた分だけ増やしていました。
もっと合理的にならないかと思いご相談に上がりました。
よろしくお願いします。
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
(事務員) 2014/04/18(金) 11:42
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.