例如:總共有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
創作者介紹
創作者 冰緒雪夜 的頭像
冰緒雪夜

今宵月は何処を照らすの

冰緒雪夜 發表在 痞客邦 留言(0) 人氣()