注册    登录
今天看啥  ›  专栏  ›  完美Excel

VBA程序：合并工作表

完美Excel  · 公众号  · Excel  · 2024-07-05 06:53
学习Excel技术，关注微信公众号：excelperfect标签：VBA下面的程序合并工作簿中所有工作表到指定名称的工作表中：Sub MergeSheet() '声明变量 Dim LastRow As Long Dim ShtCnt As Long Dim i As Long Dim ShtName As String Dim NewSht As Worksheet Dim ws As Worksheet '通过用户输入框赋给工作表名字 ShtName = vbNullString Do While Len(ShtName) = 0   ShtName = InputBox("请输入想要创建的合并数据工作表的名字" & vbCrLf & vbCrLf & "单击[取消]退出", "合并工作表", "合并工作表")  '如果取消则退出 If Len(ShtName) = 0 Then Exit Sub i = 0 On Error Resume Next i = Worksheets(ShtName).Index On Error GoTo 0 If i = 0 Then '创建新工作表 Worksheets.Add.Name = ShtName '将新创建的工作表NewSht作为当前工作表 Set NewSht = Worksheets(ShtName) '将新创建的工作表移动到工作表标签选项卡最前面 NewSht.Move ………………………………

原文地址：访问原文地址
快照地址： 访问文章快照
推荐文章
Excel之家ExcelHome  ·  财务总监教你制作适合手机阅读的动态周报
4 天前
完美Excel  ·  使用VBA进行线性插值
6 天前
Excel之家ExcelHome  ·  VLOOKUP函数出错，这几个原因要注意
6 天前
Excel之家ExcelHome  ·  快速计算每种食品的剩余保质期
1 周前
Excel之家ExcelHome  ·  CSV格式文件的正确打开方式
6 天前
Apple  ·  两款新 iPad 报到，3、2、1，购。
1 年前
安全学习那些事  ·  中国人民银行关于《非银行支付机构条例（征求意见稿）》公开征求意见的通知
3 年前
药时代  ·  首次突破！药明生物与Amicus达成独家商业化生产战略合作
5 年前
Zilliqa社区  ·  Zilliqa官方挖矿指南中文版
5 年前
汇丰中国  ·  进博会抢先看，汇丰带你一镜到底！
5 年前
关于   移动版
今天看啥 - 微信公众号rss订阅, 微信rss, 稳定的RSS源
© 2024 ~ 沪ICP备11025650号