vba - 为 Range 中的每个单元格创建新工作表并使用其值重命名

Question

我在这个论坛或谷歌上找不到任何对我有帮助的主题，所以我希望有人能在这里帮助我。

我来啦:

我已经创建了这个宏:

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

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

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

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