[已解决]如何批量建立工作表

香草雨露

sheet1里有N个表的名称，如何批量建立这些表的名称的工作表到sheet1后面？

最佳答案

月排行榜 / 总排行榜

橘子红

2016-4-7 12:17

1. Sub x()
   
2. Dim a, x%
   
3. a = Range("a1").CurrentRegion
   
4. For x = 1 To UBound(a)
   
5.     Sheets.Add(after:=Sheets(Sheets.Count)).Name = a(x, 1)
   
6. Next
   
7. End Sub

复制代码

跳转到最佳答案楼层

橘子红

1. Sub x()
   
2. Dim a, x%
   
3. a = Range("a1").CurrentRegion
   
4. For x = 1 To UBound(a)
   
5.     Sheets.Add(after:=Sheets(Sheets.Count)).Name = a(x, 1)
   
6. Next
   
7. End Sub

复制代码

sry660

1. Sub 批量建表()
   
2.     Dim arr, i%, sh As Worksheet
   
3.     For i = Sheets.Count To 2 Step -1
   
4.         Application.DisplayAlerts = False
   
5.         Sheets(i).Delete
   
6.         Application.DisplayAlerts = True
   
7.     Next
   
8.     arr = Sheets(1).[a1].CurrentRegion
   
9.     For i = 1 To UBound(arr)
   
10.         Sheets.Add after:=Sheets(Sheets.Count)
    
11.         Set sh = ActiveSheet
    
12.         sh.Name = arr(i, 1)
    
13.     Next
    
14. End Sub

复制代码

香草雨露

橘子红 发表于 2016-4-7 12:17

运行你给我的代码后，出现这样的对话框，如何解决呢？

香草雨露

sry660 发表于 2016-4-7 12:21

运行你给我的代码后，出现这个对话框，应该如何处理呢？

香草雨露

用这个方法已解决，谢谢楼上两位的帮助。
将菜单　“开发工具”－“宏安全性” 设置低