怎么可以在复制excel表格后单据上的编号自动递增，请大师帮忙谢谢！

jinhua9818 · 发表于 2024-2-25 14:49

miaojohn45 · 发表于 2024-2-25 14:54

VBA编程实现，去VBA区发帖。

苏Lang · 发表于 2024-2-25 14:58

=MID(CELL("filename"),FIND("]",CELL("filename"))+1,99)

和工资表名称同步，自动递增就复杂了吧

fzxba · 发表于 2024-2-25 15:27

染厂计划单.zip (15.81 KB, 下载次数: 8)

笨鸟飞不高 · 发表于 2024-2-25 16:13

Sub AwTest()
Dim i&, k%, Bh$, Ws As Worksheet
k = Val(InputBox("需要复制几张表？ ", "提示！ ", "1"))
Set Ws = Sheets("240001")
Bh = Ws.[J3].Value
For i = 1 To k
      Ws.Copy After:=Sheets(Sheets.Count)
      Bh = Bh + 1
      With ActiveSheet
         .Name = Bh
         .[J3] = Bh
      End With
Next
End Sub

笨鸟飞不高 · 发表于 2024-2-25 16:22

染厂计划单.zip (15.39 KB, 下载次数: 14)

jinhua9818 · 发表于 2024-2-25 16:46

谢谢楼上的几位大师帮忙完美解决了

jinhua9818 · 发表于 2024-2-26 11:43

fzxba 发表于 2024-2-25 15:27

还需要麻烦一下老师傅，我这个编码里面要是有文本加在头上如：YC240001这样的需要加入那些代码？

fzxba · 发表于 2024-2-26 12:10

jinhua9818 发表于 2024-2-26 11:43
还需要麻烦一下老师傅，我这个编码里面要是有文本加在头上如：YC240001这样的需要加入那些代码？

增加一表.zip (18.55 KB, 下载次数: 16)

jinhua9818 · 发表于 2024-2-26 14:15

fzxba 发表于 2024-2-26 12:10

现在可以了，非常感谢老师

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

[求助] 怎么可以在复制excel表格后单据上的编号自动递增，请大师帮忙谢谢！

评分