基于单元格创建新工作表，但忽略空单元

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