問(wèn)題:
一個(gè)EXCEL中有N個(gè)SHEET
想把所有的SHEET的名字都讀到一個(gè)SHEET中。
解決方案:
1、點(diǎn)擊工具--選項(xiàng)--安全性--宏安全性--在安全級(jí)里面選擇最后一個(gè)低。
2、點(diǎn)擊工具--宏--宏--在宏名中輸入SheetName--點(diǎn)擊創(chuàng)建按鈕。
3、將下面的代碼復(fù)制、粘貼--按F5執(zhí)行
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)是你的第一個(gè)sheet,你也可以改成 Worksheets("sheetname"),其中的sheetname是你想要存放的sheet的名稱(chēng)
2、Cells(i, 1)中的1代表是第一列既A列,你也可以改成2、3、4……依此類(lèi)推分別代表B、C、D列
posted on 2008-02-21 09:57
小言身寸 閱讀(5733)
評(píng)論(3) 編輯 收藏 所屬分類(lèi):
軟件應(yīng)用