問題：
一個EXCEL中有N個SHEET
想把所有的SHEET的名字都讀到一個SHEET中。
解決方案：
1、點擊工具－－選項－－安全性－－宏安全性－－在安全級里面選擇最后一個低。
2、點擊工具－－宏－－宏－－在宏名中輸入SheetName－－點擊創建按鈕。
3、將下面的代碼復制、粘貼－－按F5執行
Sub SheetName()
For i = 1 To Sheets.Count
Worksheets(Sheets(1).Name).Cells(i, 1).Value = Sheets(i).Name
Next i
End Sub
注意：
1、Worksheets(Sheets(1).Name)是你的第一個sheet，你也可以改成 Worksheets("sheetname")，其中的sheetname是你想要存放的sheet的名稱
2、Cells(i, 1)中的1代表是第一列既A列，你也可以改成2、3、4……依此類推分別代表B、C、D列
posted on 2008-02-21 09:57
小言身寸 閱讀(5733)
評論(3) 編輯 收藏 所屬分類:
軟件應用