2015-04-17 57 views
1

我需要一个可以自动创建加重命名工作表的宏工作表上。应根据是位于另一个工作表名称的名单上创建的表“在同一工作簿每日摘要假设该列表是在小区A3,怎么能这样我做到这一点?Excel宏创建命名基于现有的列表

+0

[宏Excel来创建基于一个列表名称的新表,但如果多次不创建(http://stackoverflow.com/questions/29678539/macro-excel-to-create-new-张与 - 名基础上,一个列表,但是,如果重复的-DO-N/29679285#29679285) 这个问题已经在上面的链接。 –

+0

太棒了!好样的!好工作有了答案! –

+0

感谢您的链接! –

回答

1

尝试使用此:

Sub YourNeededMacro() 
    Dim MyCell As Range, MyRange As Range 

    Set MyRange = Sheets("Daily Summary").Range("A3") 
    Set MyRange = Range(MyRange, MyRange.End(xlDown)) 

    For Each MyCell In MyRange 
     Sheets.Add After:=Sheets(Sheets.Count) 'creates a new worksheet 
     Sheets(Sheets.Count).Name = MyCell.Value ' renames the new worksheet 
    Next MyCell 
End Sub