为“范围”中的每个单元格创build新工作表，并使用其值重命名

我找不到任何在这个论坛上的话题或谷歌帮助我，所以我希望任何人都可以在这里帮助我。

我来啦：

我已经创build了这个macros：

Sheets("Presentation PP").Select Dim MyCell As Range, MyRange As Range Set MyRange = Sheets("Presentation PP").Range("C3") Set MyRange = Range(MyRange, MyRange.End(xlDown)) For Each MyCell In MyRange Sheets("Presentation PP").Copy After:=Sheets(1) 'copies worksheet and creates a new one Sheets(Sheets.Count).Name = MyCell.Value ' renames the new worksheet Next MyCell End Sub 

所以现在这个macros正在为我的范围内的每个单元格创build一个我的表的副本，并重命名最后一个与我的最后一个单元格中的值。 我需要通过值重命名所有工作表。

我想我错过了一个子程序。 希望有人知道如何解决这个问题。

Answer 1

这是你想要的吗？

 Sub MainMoD() Dim cell As Range Dim ws As Worksheet Set ws = Sheets("Presentation PP") For Each cell In ws.Range("C3:C" & ws.Range("C" & Rows.Count).End(xlUp).Row) ws.Copy after:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = cell.Value Next End Sub