[已解决]求救。。。。。

W0898

谢谢。下面的语句是什么意思啊可以解释一下不

Sub t()
    Dim i As Integer
    For i = 1 To Worksheets.Count
        Sheets(i).Name = "表" & i
    Next
End Sub

最佳答案

月排行榜 / 总排行榜

zxc1152468

2010-9-14 08:44

[em01]Sub t()
    Dim i As Integer设置变量i为整数
    For i = 1 To Worksheets.Count从第一张工作表到所有的工作表
        Sheets(i).Name = "表" & i设置工作表的名称为i表
    Next
End Sub

[此贴子已经被作者于2010-9-14 8:45:43编辑过]

跳转到最佳答案楼层

zxc1152468

[em01]Sub t()
    Dim i As Integer设置变量i为整数
    For i = 1 To Worksheets.Count从第一张工作表到所有的工作表
        Sheets(i).Name = "表" & i设置工作表的名称为i表
    Next
End Sub

[此贴子已经被作者于2010-9-14 8:45:43编辑过]

chensir

是将工作表的名称由sheet1、sheet2、sheet3等改为表1、表2、表3等的代码

chensir

Sub t()
    Dim i As Integer               '设置变量i为整数,即1、2、3等
    For i = 1 To Worksheets.Count  '设置i从1到最大工作表数即255
    Sheets(i).Name = "表" & i  '设置工作表的名称为表i，即表1、表2、表3等
    Next
End Sub

宝呗

学习了。。。。

W0898

怎么样删除“宏”呢。谢谢