vba自动复制n个工作表并设置单元格为表名，求教
答案:2 悬赏:20 手机版
解决时间 2021-03-03 18:01
- 提问者网友：刺鸟
- 2021-03-02 20:45
vba自动复制n个工作表并设置单元格为表名，求教
最佳答案
- 五星知识达人网友：詩光轨車
- 2021-03-02 21:58
Sub d()
For i = 1 To Sheet1.Cells(Rows.Count, 1).End(3).Row
Sheet1.Copy after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Sheet1.Cells(i, 1)
Next
End Sub
For i = 1 To Sheet1.Cells(Rows.Count, 1).End(3).Row
Sheet1.Copy after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Sheet1.Cells(i, 1)
Next
End Sub
全部回答
- 1楼网友：夜风逐马
- 2021-03-02 22:38
我是来看评论的
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯