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

freeffly

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







新增Microsoft Excel 工作表.rar (33.13 KB)

下載次數: 8

2011-10-20 10:47

Hsieh

回復 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

複製代碼

freeffly

回復 2# Hsieh


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

Hsieh

回復 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

複製代碼

freeffly

回復 4# Hsieh


    謝謝大大指導
       沒注意到這各問題