07/02/02 00:52:51
>>141
Option Explicit
Option Base 1
Sub testTwo()
'変数定義
Dim row As Long
row = 1
'正午のデータだけ取得
Do While row < 65500
If row Mod 24 <> 1 Then
ActiveSheet.Range(Cells(row, 1), Cells(row, 2)).ClearContents
End If
row = row + 1
Loop
End Sub
正午以外を消して空白を残す。
24行ごとに値があること前提だけども…。
手抜きでスマソ、そろそろ寝ようかと…。