|
こんにちわ
Sub test()
With Worksheets("Sheet3")
.Cells.ClearContents
Worksheets("Sheet2").Range("A1").CurrentRegion.Columns(1).Copy .Cells(.Rows.Count, 1).End(xlUp)
Worksheets("Sheet1").Range("A1").CurrentRegion.Columns(1).Copy .Cells(.Rows.Count, 1).End(xlUp).Offset(1)
With .Range("A1")
.CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlNo
strAddr = Worksheets("Sheet2").Range("A1").CurrentRegion.Address(ReferenceStyle:=exlR1C1, external:=True)
With .CurrentRegion.Columns(2)
.NumberFormatLocal = "hh:mm:ss"
.FormulaR1C1 = "=VLOOKUP(RC[-1]," & strAddr & ",2,false)"
.Value = .Value
.Replace "#N/A", TimeValue("23:59:58")
End With
End With
End With
End Sub
|
|