- 帖子
- 835
- 主題
- 6
- 精華
- 0
- 積分
- 915
- 點名
- 0
- 作業系統
- Win 10,7
- 軟體版本
- 2019,2013,2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-3
- 最後登錄
- 2025-7-5
|
本帖最後由 luhpro 於 2011-5-24 22:41 編輯
類似這種不依照順序只針對工作表名稱做處理的需求其實最適合用陣列來處理了.
Sub nn()
Dim vSheetName
Dim iI%
vSheetName = Array("樞紐表A", "樞紐表C", "樞紐表E", "樞紐表F")
For iI = 0 To UBound(vSheetName)
Debug.Print vSheetName(iI)
Next iI
End Sub
若要動態新增工作表名稱到陣列內請使用以下方式 :
ReDim Preserve vSheetName(UBound(vSheetName) + 1)
vSheetName(UBound(vSheetName)) = "樞紐表G" |
|
發表於 2011-5-24 22:39
| 