6,216
社区成员




Private Sub Workbook_Open()
For Each wkst In ThisWorkbook.Sheets
wkst.Cells(1, 1) = wkst.Name
Next
End Sub
这段代码会在工作簿打开后,每个sheet的A1单元格里填上该sheet的名字。你要取的话,只要使用=a1就可以取到。如果想做隐蔽点,可以在第1行,第9999列写入表名。如果要更严谨点,可以在多个事件里添加该代码,例如 Workbook_SheetChange、Workbook_Activate之类