今宵月は何処を照らすの

例如：總共有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