Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

工作中常用的Excel函数公式,全印在一张超大鼠标垫上
查看: 258|回复: 1

[已解决]vba循环语句,点击一次运行一次

[复制链接]
发表于 2021-7-22 22:01 | 显示全部楼层 |阅读模式
3学分
想做工作表的复制,但名称要从"工作表1",复制为"工作表2"....以此循环
Sub yiii()
Dim yuy As Worksheet
For x = 1 To 999
Sheets( "工作表" & x ).Copy after:=Sheets(Sheets.Count)
  Set yuy = ActiveSheet
   yuy.Name = "工作表" & x+1
  Next x
End Sub


求修改代码,能让我运行一次程序,仅多一个工作表就停止程序。再运行一次,再多一个工作表
最佳答案
2021-7-22 22:01
Sub demo()
   Sheets("工作表1").Copy after:=Sheets(Sheets.Count)
   ActiveSheet.Name = "工作表" & Sheets.Count
End Sub

祝順心,南無阿彌陀佛!


最佳答案

查看完整内容

Sub demo() Sheets("工作表1").Copy after:=Sheets(Sheets.Count) ActiveSheet.Name = "工作表" & Sheets.Count End Sub 祝順心,南無阿彌陀佛!
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2021-7-22 22:01 | 显示全部楼层    本楼为最佳答案   
Sub demo()
   Sheets("工作表1").Copy after:=Sheets(Sheets.Count)
   ActiveSheet.Name = "工作表" & Sheets.Count
End Sub

祝順心,南無阿彌陀佛!


回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2021-9-16 19:20 , Processed in 0.286507 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表