软体: 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/cn.aspx?n=bbs/Office/M.1614051993.A.FC3.html