小试牛刀-将工作表名生产目录或将工作表名放到单元格

梅一枝

试验本.zip (11.23 KB, 下载次数: 7)

2012-2-20 11:42 上传

点击文件名下载附件

A组梅一枝代码：

工作表名以目录形式排列代码：

Sub 名()       ‘此代码只在目录工作表生成目录

    Dim ar, n

    For n = 1 To 100  ‘提示：当工作表数量不够100个，会提示错误9下标超界

        ar = Sheets(n).Name

        Cells(n, 2) = ar

    Next n

End 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

现学现用，初试成功，还请老师、前辈们指点。

雨后彩霞

学习下，但有些看不懂。

yl_li

我也写两个试试
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