標題: (已解決)多各工作表處理 [打印本頁]

---

作者: freeffly    時間: 2011-10-12 14:49     標題: (已解決)多各工作表處理

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

Sheets(Array("A", "B", "C", "D", "E", "F", "G")).Select
我是想要處理某幾各數量工作表移出成為另一個檔案

想知道array裡面有沒有什麼方式簡略
可能是固定數量的工作表(譬如第5各到最後依各工作表)
可是工作表名稱不固定(不同檔案裡面工作表不依樣)

---

作者: Hsieh    時間: 2011-10-12 15:25

回復 1# freeffly

Dim sht()
k = Sheets.Count
Do Until i = 5
ReDim Preserve sht(i)
sht(i) = Sheets(k).Name
k = k - 1
i = i + 1
Loop
Sheets(sht).Select

---

作者: freeffly    時間: 2011-10-12 16:36

回復 2# Hsieh


    謝謝版主
      這個方法可以
       ReDim Preserve sht(i)
   第一次看到這種用法
     看字面大概了解意思
      不懂得還真多

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)