需要 VBA 代码。从列表中重命名工作表

Question

需要 VBA 代码。重命名列表

中的 sheets

我在 sheet 2 单元格 w3 到 w22 中有一个姓名列表。我需要从名称列表中命名 sheets/tabs 3 thur 22。名字变了。如果 w3 到 w22 中没有名字。我希望标签编号为 1 到 20 有任何想法吗？

Answer 1

    Dim MyCell As Range, MyRange As Range, Dim i As Integer 

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

    For Each MyCell In MyRange 
    If MyCell.Value IS NULL
    Sheets(Sheets.Count + 3).Name = i
    Sheets(Sheets.Count + 3).Name = MyCell.Value ' renames the new worksheet 
    Next MyCell

或者类似这样的事情，我没有测试它，因为你没有给我们任何可以解决的问题，也没有做出任何努力自己解决它。 http://en.kioskea.net/faq/27361-excel-a-macro-to-create-and-name-worksheets-based-on-a-list 感谢这个网站为我提供了出发的基础。

需要 VBA 代码。从列表中重命名工作表

Need a VBA code. rename sheets from list

vba

table-rename