基於單元格創建新工作表，但忽略空單元

Question

我想在工作簿中創建一個新工作表;名稱基於「摘要」工作表的C列（從C4開始）中的信息。到目前爲止，我有以下VBA，但是當它到達空白單元格時，它會停止。我需要它忽略空白單元格並繼續。任何幫助？

Sub CreateSheetsFromAListTEST() 

Dim MyCell As Range, MyRange As Range 

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

For Each MyCell In MyRange 
Sheets.Add after:=Sheets(Sheets.Count) 'creates a new workbook 
Sheets(Sheets.Count).Name = MyCell.Value 'renames the new workbook 
Next MyCell 

End Sub 

Answer 1

更換

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

For Each MyCell In MyRange 
    Sheets.Add after:=Sheets(Sheets.Count) 'creates a new workbook 
    Sheets(Sheets.Count).Name = MyCell.Value 'renames the new workbook 
Next MyCell 

通過

set MyRange=range(sheets("Summary").[c4],sheets("Summary").cells(rows.count,"C").end(xlup)) 

For Each MyCell In MyRange 
    if len(mycell.text)>0 then 
     Sheets.Add after:=Sheets(Sheets.Count) 'creates a new workbook 
     Sheets(Sheets.Count).Name = MyCell.Value 'renames the new workbook 
    end if 
Next MyCell