今宵月は何処を照らすの

例如：總共有700多個工作表
要在Sheet的A欄列出所有工作表名稱

可使用VBA語法：
Private Sub CommandButton1_Click()
For i = 1 To Worksheets.Count
Cells(i, 1) = Sheets(i).Name
Next i
End Sub


待測試 (我還不會用= =)：
■ 定義三個名稱：
x =GET.CELL(32,INDIRECT("sheet"&ROW(Sheet1!A1)&"!a1"))
y =MID(x,FIND("]",x)+1,9999999)
SheetName =IF(ISERROR(y),"",y)

■ 工作表中輸入公式
1.請在 Sheet6 工作表 A1 儲存格中輸入公式 =SheetName
2.將 A1 公式直接往下複製，完成



資料來源：Yahoo奇摩知識+ conan
http://tw.knowledge.yahoo.com/question/question?qid=1008041801278