小试牛刀-将工作表名生产目录或将工作表名放到单元格
A组梅一枝代码： 工作表名以目录形式排列代码： Sub 名() ‘此代码只在目录工作表生成目录 Dim ar, n For n = 1 To 100‘提示：当工作表数量不够100个，会提示错误9下标超界 ar = Sheets(n).Name Cells(n, 2) = ar Next nEnd Sub
工作表名放到当前工作表的B1单元格代码： Sub 名() ‘此代码让把工作表名弄到当前工作表的B1单元格 Dim ar, n For n = 1 To 6 ar = Sheets(n).Name Sheets(n).Range("b1") = ar Next n End Sub A组 葭华代码更为精准，多种代码仅供参考：Sub 名1() ‘利用记数函数统计工作表数量更为准确。FOR i = 1 To Worksheets.Count
Sheets(i).Range("B1") = Sheets(i).Name
Next
End Sub Sub 名1()
For i = 1 To Worksheets.Count
Sheets(i).Range("B1") = Sheets(i).Name
Next
End Sub Sub 名()
For Each Worksheet In ThisWorkbook.Worksheets
Worksheet.Range("B1") = Worksheet.Name
Next
End Sub现学现用，初试成功，还请老师、前辈们指点。
学习下，但有些看不懂。 我也写两个试试
Sub aa()
Dim n As Byte
For n = 1 To Sheets.Count
Sheets("sheet1").Cells(n, 1) = Sheets(n).Name
Next n
End Sub
Sub bb()
Dim sh As Worksheet
Dim i
i = 1
For Each sh In ThisWorkbook.Sheets
Sheets("sheet1").Cells(i, 3) = sh.Name
i = i + 1
Next
End Sub
页:
[1]