|
独覚さん
ファイルのプロパティ自体は、正確な日時になっています。
あと、日時取得だけで End Subにしておらず、
続けて並べ替えするようにしています。
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("C1") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
Dim LastRow As Long
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("a1", "c" & LastRow)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
|
|