[已解决]以A列名字新建工作表

c5h8o4nna

大家新年好~请高手们帮个忙

A列是1-12月，以每个月新建一个工作表，详情见附件求一段VBA代码{:021:}

最佳答案

月排行榜 / 总排行榜

十五的月亮

2017-2-5 20:53

1. Sub 月份()
   
2.     Dim rg As Range
   
3.     For Each rg In Worksheets("总表").Range("a1:a12")
   
4.         Sheets.Add After:=Sheets(Sheets.Count)
   
5.         ActiveSheet.Name = rg.Value
   
6.     Next
   
7. End Sub
   

复制代码

跳转到最佳答案楼层

十五的月亮

1. Sub 月份()
   
2.     Dim rg As Range
   
3.     For Each rg In Worksheets("总表").Range("a1:a12")
   
4.         Sheets.Add After:=Sheets(Sheets.Count)
   
5.         ActiveSheet.Name = rg.Value
   
6.     Next
   
7. End Sub
   

复制代码