返回列表 上一主題 發帖

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

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

本帖最後由 freeffly 於 2012-2-22 16:56 編輯

我想問如果我要在第一各工作表那邊編排工作表順序
再讓工作表照排完之後的順序去排要如何寫?







新增Microsoft Excel 工作表.rar (33.13 KB)
字典兩各字 還真難理解

本帖最後由 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

回復 2# Hsieh


    感謝大大
       第二各可以
       第一各有問題
       看完程式碼後
        本來想不通為什麼
       原來跟大風吹一樣
        真是妙!!
字典兩各字 還真難理解

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

回復 4# Hsieh


    謝謝大大指導
       沒注意到這各問題
字典兩各字 還真難理解

TOP

        靜思自在 : 慈悲沒有敵人,智慧不起煩惱。
返回列表 上一主題