軟體: office 365 請朋友幫忙寫了個"工作表排序"的VBA如下： =================================================== '--<<將[頁籤] 依[送貨方式]排序>>-- ' Sheets("送貨方式").Select '處理好頁籤的最後位置(初始為母本頁籤Start位置=3) nidx = 3 'x 由2開始為 跳過標題[送貨方式], 逐筆頁籤 找到對應[送貨方式] 移位置 For x = 2 To Cells(Worksheets("送貨方式").Rows.Count, 1).End(xlUp).Row Sheets("送貨方式").Select send_mode = Cells(x, 1).Value For y = nidx + 1 To Worksheets.Count Sheets(y).Select If Range("B5").Value = send_mode Then Sheets(y).Move Before:=Sheets(nidx + 1) nidx = nidx + 1 End If Next y Next x Sheets("Start").Select End Sub ================================================= 但排序一直會亂跳，檢視發現原來是工作表順序亂了， 實際排序變成下面這樣 工作表387 工作表388 工作表389 工作表39 工作表391 工作表392 工作表393 朋友說可能是電腦版本問題，請問有什麼方式可以改善嗎? 希望有大神能路過降臨協助解答，感激不盡 <(_ _)> --

※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.194.184.228 (臺灣) ※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1614051993.A.FC3.html