请高手帮忙看下下面这段代码是统计手机EXCEL里各sheet的命名：
是不是有错误，多谢啦~~
Sub CollectName()
Dim i As Integer
Dim overall As Integer
For i = 1 To Sheets.Count
If Sheets(i).Name = "AAA-Overall" Then
overall = i
End If
Sheets(overall).Cells(i, 1).Value = Sheets(i).Name
Next i
End Sub
VBA求助：excel 各sheet的自动命名
答案:2 悬赏:50
解决时间 2021-02-20 14:55
- 提问者网友：醉归
- 2021-02-20 05:14
最佳答案
- 二级知识专家网友：懂得ㄋ、沉默
- 2021-02-20 05:49
Sub CollectName()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(1).Cells(i, 1) = Sheets(i).Name
Next i
End Sub
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(1).Cells(i, 1) = Sheets(i).Name
Next i
End Sub
全部回答
- 1楼网友：傲娇菇凉
- 2021-02-20 05:56
把这段代码复制到你的excel代码区域，如果需要保护工作表2,3，只需把代码中1改为2,3即可
private sub workbook_beforeclose(cancel as boolean)
sheets(1).protect password:=你的密码
end sub
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯