返回列表 上一主題 發帖

依日期大小自動排序

回復 8# cowww


With Sheets(2).Range("a5:j" & Cells(Rows.Count, "A").End(xlUp).Row)
        .Cells.Sort Key1:=.Cells(4), Order1:=xlAscending, Header:=xlYes
End With

因為你的資料都是公式,你可以整列反顏色去,執行F8就會知道問題在哪裡了

轉為值再執行看看,謝謝

TOP

        靜思自在 : 做該做的事是智慧,做不該做的事是愚癡。
返回列表 上一主題