返回列表 上一主題 發帖

[發問] (已解決)重排工作表順序

本帖最後由 Hsieh 於 2011-10-20 11:12 編輯

回復 1# freeffly
  1. Sub nn()
  2. For i = [B65536].End(xlUp).Row To 2 Step -1
  3.    Sheets(Cells(i, 2).Value).Move before:=Sheets(1)
  4. Next
  5. End Sub
複製代碼
  1. Sub nn()
  2. For Each a In Range([B2], [B65536].End(xlUp))
  3.    Sheets(a.Value).Move after:=Sheets(Sheets.Count)
  4. Next
  5. End Sub
複製代碼
學海無涯_不恥下問

TOP

回復 3# freeffly


    在一般模組使用就必須指定工作表
  1. Sub nn()
  2. With Sheets("Sheet159")
  3. For i = .[B65536].End(xlUp).Row To 2 Step -1
  4.    Sheets(.Cells(i, 2).Value).Move before:=Sheets(1)
  5. Next
  6. End With
  7. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 一個人的快樂.不是因為他擁有得多,而是因為他計較得少。
返回列表 上一主題