|
以下を標準モジュールに記述して下さい
データの有るシートをアクティブにして実行して下さい
Public Sub TimeExtraction()
Dim i As Long
Dim j As Long
Dim wksData As Worksheet
'画面更新の停止
Application.ScreenUpdating = False
'データの有るシートの参照を設定(コードではアクティブシート)
Set wksData = ActiveSheet
'データシートに就いて
With wksData
'書き込み行を2行目からに設定
j = 2
'読み込む行を2行目から最終行まで繰り返す
For i = 2 To .Cells(65536, 2).End(xlUp).Row
'もし、時刻の分が0なら
If Minute(.Cells(i, 2).Value) = 0 Then
'セルのB列から7列をCopyしてセルのJ列に張り付け
.Cells(i, 2).Resize(, 7).Copy _
Destination:=.Cells(j, 10)
'書き込み行を更新
j = j + 1
End If
Next i
End With
'データの有るシートの参照を破棄
Set wksData = Nothing
'画面更新を再開
Application.ScreenUpdating = True
End Sub
|
|