请求帮助

要做报表，每个表格对应一个项目的信息。所有项目信息全在另一个表格里，每一行为单独一个项目的各种信息，我想自动完成5000个项目的报表填写。按键精灵新手，不会vba语句。所以我打算录制宏录制一个表格的单一过程，然后再编辑里加上变量和循环。现在有三个问题
1录制之后运行对象永远是那一行，目标对象永远是第一张报表变量怎么加
2vba里对应的循环语句怎么写
3有没有办法按一行中某一格信息作为表名自动创建一个报表格式对应表然后完成上面过程（毕竟复制粘粘5000个表还要改标题也很累啊

）。如果这件事真的最后要手动做完我觉得会崩溃，萌新\(//∇//)\...求救

代做可以

是这样吗：比如A列有5000个不同的名称，按照这5000个名称循环创建工作簿，并把对应行的信息放进新创建的表格里？

对的

Sub 批量创建工作表()
Dim 创建数量 As String '编写：锦绣文章90
创建数量 = Application.InputBox( _
"请输入创建的工作表数量：", "提示：", "", , , , , 1)
If 创建数量 = False Then Exit Sub
Application.ScreenUpdating = False
Do
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Sheet" & Sheets.Count
Loop Until Sheets.Count = 创建数量 + 1
Application.ScreenUpdating = True
End Sub
Sub 批量删除工作表()
Dim 工作表 As Worksheet '编写：锦绣文章90
If Sheets.Count = 1 Then Exit Sub
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each 工作表 In ThisWorkbook.Worksheets
If Sheets.Count = 1 Then Exit Sub
If 工作表.Name <> "Sheet1" Then 工作表.Delete
Next 工作表
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

了解一下 WORD邮件合并功能

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

17回复贴，共1页

<<返回vba吧

分享到:

日	一	二	三	四	五	六