多表格引用如何自动创建副本

gaobomld 发布于 2019-08-04 13:33， 2287 次点击

我是一个知天命的人了，还想东想西的
求教各位
表格A中如5C单元填入XT2019-031-***，则自动创建表格B的副本，且对副本进行重命名为表格B***，三个*与表格A中单元格一致。如何编程。真心请教。

3 回复

cjaihh2019-08-06 16:07

Sub creatsheet()
Dim a, b As String
Dim SH As Worksheet
Dim S As Range
Dim aa As Integer
For Each S In Application.Selection
a = Left(S, 2)
If a = "XT2019" Then
   b = Right(S, 3)
       For aa = 1 To Sheets.Count
          If Sheets(aa).Name = b Then
             MsgBox ("这个文档已存在")
             GoTo IPTR
          End If
       Next
     Set SH = Worksheets.Add
         SH.Name = b
IPTR:    Worksheets("SHEET1").Select
End If
Next
End Sub

gaobomld2019-08-08 18:37

谢谢！

gaobomld2019-08-13 17:51

回复 2楼 cjaihh

能给我解说下吗?