循环复制新建表

xing_chen · 发表于 2023-2-8 21:29

老师！有表，因为有更新，需要在此表后复制每次更新后的此表数据。所有不断需要复制和按1-12个月新建表名（每月2张，以1和2分别）。敬请老师赐教。谢谢！

shiruiqiang · 发表于 2023-2-8 22:10

不知楼主来论坛是来学习还是要求帮忙解决问题的？

几个问题都差不多啊

xing_chen · 发表于 2023-2-8 22:22

shiruiqiang 发表于 2023-2-8 22:10
不知楼主来论坛是来学习还是要求帮忙解决问题的？几个问题都差不多啊

老师!我是临时抱佛脚。工作上的问题，以前是手工，顶多用函数。现在入迷了，就想着试用VBA解决顺便学习。

xing_chen · 发表于 2023-2-8 22:28

shiruiqiang 发表于 2023-2-8 22:10
不知楼主来论坛是来学习还是要求帮忙解决问题的？几个问题都差不多啊

其实呀，我的工作种类多，但具体工作的量不大，1张表顶多2到3300行，有时想想就用现有掌握的EXCEL技能可以完全应付，但入迷了！

liulang0808 · 发表于 2023-2-9 07:16

其他表格的命名原则以及排列顺序是什么？看楼主现在的表名不确定怎么排序，以及怎么追加

taller · 发表于 2023-2-9 07:47

洋务德雷 · 发表于 2023-2-9 08:12

xing_chen 发表于 2023-2-8 22:28
其实呀，我的工作种类多，但具体工作的量不大，1张表顶多2到3300行，有时想想就用现有掌握的EXCEL技能可 ...

入迷是什么意思？是对Excel有兴趣学习的意思吗？
如果感兴趣，我就跟你说说：你这个工作表的设计思路就不对。
怎么还区分年表和月表。如果数据性质一样，这些数据就应该先设计到一张表内。
学习Excel最重要的是对数据表的正确的设计理念。

3190496160 · 发表于 2023-2-9 09:52

Sub 新建工作表()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
For Each sh In Sheets
If sh.Index > 1 Then
      d(sh.Name) = ""
End If
Next sh
For i = 1 To 12
For s = 1 To 2
      mc = i & "月" & s
      If Not d.exists(mc) Then
         Sheets("年表").Copy after:=Sheets(Sheets.Count)
         With ActiveSheet
            .Name = mc
            .UsedRange.Clear
         End With
      End If
Next s
Next i
MsgBox "ok!"
End Sub

3190496160 · 发表于 2023-2-9 09:54

3190496160 · 发表于 2023-2-9 09:55

循环新建表.rar (11.53 KB, 下载次数: 8)

		自动登录	找回密码
密码			免费注册

[求助] 循环复制新建表

评分