Создать новый рабочий лист на основе ячейки, но игнорировать пустую ячейку

Я хотел бы создать новый рабочий лист в моей книге; имя, основанное на информации в столбце С (начиная с С4) «Сводного» рабочего листа. У меня есть следующий 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 

замещать

 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 
  • Excel не отображает рабочие листы
  • Ошибка: HRESULT: 0x800A03EC Пытается создать новый рабочий лист
  • Как проверить другую таблицу, если агентство находится в определенном регионе
  • Рабочая книга не открывается в MsWord и просит восстановить и показать xml-ошибку после репарации
  • VB Macro, чтобы создавать новые книги и готовить новые книги из мастер-листа
  • python win32 excel copy лист и изменить имя скопированного листа
  • Как получить имя ячейки Excel в vb.net?
  • Как вы можете программно получить число страниц в листе Excel?
  • Проверка данных Excel
  • Запросы Sql в коде VBA - как прокомментировать после строки Sql
  • Можно ли экспортировать список SharePoint в файл Excel, разделенный на отдельные листы?
  • Interesting Posts

    Экспорт DataTable в существующий Excel

    Excel – лист поиска 1, используя список из листа 2

    Код VBA не полностью зацикливается на каждой папке

    Сопоставление сводной таблицы с исходной таблицей

    Получать максимальное значение на основе уникальных значений

    Скопируйте определенные столбцы с одного листа на другой с помощью макроса vba

    FindNext из InputBox во всей рабочей книге

    Не удалось открыть файл XLSX с помощью Apache POI: NoClassDefFoundError

    Excel.ExcelReaderFactory не может открыть некоторые файлы

    Нет сообщения об ошибке, код результата: E_FAIL (0x80004005)

    В Excel, как я могу вытащить только состояние из ячейки, которая имеет полный адрес?

    Добавление формулы в ячейку из кода VBA

    Очистка текстового поля при нажатии кнопки VBA

    Как искать столбец для любых ячеек с датами раньше определенной даты и выделять их?

    Предотвращать защиту ячейки Excel при копировании формул через VBA

    Давайте будем гением компьютера.