MsgBox ("日期輸入錯誤") Exit Sub End If Set xR = Range("sheet1!A1").CurrentRegion. With xR .AutoFilter .AutoFilter Field:=1, Criteria1:=">=" ...
確定! 回上一頁