|
こんにちは。
フィルタオプションはどうでしょう?
--------------------------------------------------------------------
Sub JTmp()
Dim RngA As Range
Dim RngC As Range
Dim RngP As Range
With Sheets("Sheet1")
Set RngA = .Range("A1").CurrentRegion
Set RngC = .Range("IV1:IV2")
Set RngP = .Range("J1").Resize(, RngA.Columns.Count)
End With
RngP.Value = RngA.Rows(1).Value
RngC(1).Clear
RngC(2).FormulaR1C1 = "=MINUTE(" & RngA(1).Value & ")=0"
RngA.AdvancedFilter xlFilterCopy, RngC, RngP
Union(RngC, RngP).ClearContents
RngC.Parent.UsedRange
Set RngA = Nothing
Set RngC = Nothing
Set RngP = Nothing
End Sub
違ったらすいません。
|
|