Страницы: 1
RSS
Извлечь из столбца со смешанныеми данными только текстовые
 
Здравствуйте.
Имею столбец с динамическими данными неопределенной длины.
Нужно автоматически сгенерировать второй столбец где присутствуют только ячейки с текстом из первого столбца.
Ячейки с цифрами должны быть удалены.
Пример во вложении.
 
Доп. столбец со ссылкой на ячейки данных:
=ЕЧИСЛО()
Далее фильтр (оставить видимыми нужное), копировать, вставить на другой лист


Offtop
Вот так и гибнут целые цивилизации, из-за неопределенностей :)
Цитата
LEGOMAX написал: Ячейки с цифрами должны быть удалены.
Text 100 - тоже  с цифрами!!!
 
Код
Sub DelRow()
Dim i As Long
Dim iLastRow As Long
 iLastRow = Cells(Rows.Count, "B").End(xlUp).Row
  For i = iLastRow To 1 Step -1
    If IsNumeric(Cells(i, "B")) Then Rows(i).Delete
  Next
End Sub
 
vikttur, Kuzmich, спасибо!
Макрос то что надо.
Страницы: 1
Наверх