[A1] End With Rng.AutoFilter Call 工作表2.Autogo End Sub. 貼在工作表1的程式碼: Sub Autogo() Dim NewTime As Date NewTime = Now + TimeValue("00:00:10") ...
確定! 回上一頁