問(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)用