[已解决]希望通过VBA（或者宏）复制工作表N张，并且在.............

承诺与谁

希望通过VBA（或者宏）复制工作表N张，并且在J3单元格中的数字与复制后的工作表（如报表（5）对应  J3单元格中数字也是5）。         很多时候要复制几百几千张，工作量略大

最佳答案

月排行榜 / 总排行榜

chart888

2017-6-11 13:43

chart888 发表于 2017-6-11 09:36
仅仅是建立一个副本  然后命名G3单元格数值？不需要对表格修改？

1. Private Sub CommandButton1_Click()
   
2. Dim sInt, n, x As Integer
   
3. Application.ScreenUpdating = False
   
4. sInt = Application.InputBox(Prompt:="输入需要复制个数")
   
5.     If Len(Trim(sInt)) > 0 Then
   
6.         n = sInt
   
7.     Else
   
8.         MsgBox Prompt:="没有输入有效的数字"
   
9.         Exit Sub
   
10.     End If
    
11. Do While x < n
    
12. x = x + 1
    
13. Worksheets("报告").Copy After:=Worksheets(Sheets.Count)
    
14. ActiveSheet.Range("J3") = x + 1
    
15. Application.ScreenUpdating = True
    
16. Loop
    
17. End Sub

复制代码

跳转到最佳答案楼层

lxlyhu

看看这个效果怎么样？

chart888

1. Private Sub CommandButton1_Click()
   
2. Application.ScreenUpdating = False
   
3. Application.DisplayAlerts = False
   
4. 
   
5. Dim f As String, i As Integer
   
6. Dim wb As Excel.Workbook
   
7. Dim sh As Excel.Worksheet
   
8. Dim n
   
9. f = Dir(ThisWorkbook.Path & "\*xls*")
   
10. Do While f <> ""
    
11.     If f <> ThisWorkbook.Name Then
    
12.         Set wb = Workbooks.Open(ThisWorkbook.Path & "" & f)
    
13.         For Each sh In Worksheets
    
14.             If sh.Name = "报告" Then
    
15.                 n = n + 1
    
16.                 ThisWorkbook.Activate
    
17.                 ThisWorkbook.Worksheets.Add after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    
18.                 ThisWorkbook.Sheets(Sheets.Count).Name = "报告(" & n & ")"
    
19.                 sh.Cells.Copy ThisWorkbook.Worksheets(Sheets.Count).Cells
    
20.                 ThisWorkbook.Worksheets(Sheets.Count).Range("j3") = n
    
21.                 wb.Close True
    
22.             End If
    
23. Next
    
24.     End If
    
25.     f = Dir
    
26. Loop
    
27. Application.ScreenUpdating = True
    
28. Application.DisplayAlerts = True
    
29. MsgBox "已为您成功导入" & n & "张工作表"
    
30. End Sub

复制代码

承诺与谁

lxlyhu 发表于 2017-6-9 15:24
看看这个效果怎么样？

每个工作表的J3单元格数字要改变的{如报表（2）中的J3单元格为2，报表（3）中的J3单元格为3，报表（4）中的J3单元格为4}。这是重点。谢谢

承诺与谁

chart888 发表于 2017-6-9 15:29

不是每个要汇总表格。

是在报表（1），复制建立副本报表（2），改报表（2）中J3单元格为2。

复制建立报表（3），改在报表（3）的J3单元格为3

chart888

没有看懂你啥意思

承诺与谁

chart888 发表于 2017-6-9 20:11
没有看懂你啥意思

已经做好GIF了， 就是想通过宏（或者VBA）重复的操作建立副本并改J3单元格的数字

chart888

仅仅是建立一个副本  然后命名G3单元格数值？不需要对表格修改？

chart888

chart888 发表于 2017-6-11 09:36
仅仅是建立一个副本  然后命名G3单元格数值？不需要对表格修改？

1. Private Sub CommandButton1_Click()
   
2. Dim sInt, n, x As Integer
   
3. Application.ScreenUpdating = False
   
4. sInt = Application.InputBox(Prompt:="输入需要复制个数")
   
5.     If Len(Trim(sInt)) > 0 Then
   
6.         n = sInt
   
7.     Else
   
8.         MsgBox Prompt:="没有输入有效的数字"
   
9.         Exit Sub
   
10.     End If
    
11. Do While x < n
    
12. x = x + 1
    
13. Worksheets("报告").Copy After:=Worksheets(Sheets.Count)
    
14. ActiveSheet.Range("J3") = x + 1
    
15. Application.ScreenUpdating = True
    
16. Loop
    
17. End Sub

复制代码

承诺与谁

chart888 发表于 2017-6-11 13:43

麻烦大神在这段代码中    X的原始取值取J3单元格的数字，来依次递增