Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Как удалить ненужные строки из ячеек
 
#1
30.09.2010 13:51:03
Добрый день!  
Помогите пожалуйста разобраться....Нужно следующее:  
В ячейках помимо наименования товара есть еще строки с лишней информацией. Всего в каждой ячейке по 7-8 строк. Наименование товара всегда в 3-ей строке. Мне нужно оставить именно третью строку, а все остальные - удалить.  
Подскажите пожалуйста - как это сделать?
 
 
 
#2
30.09.2010 13:58:15
Кажется очень просто  
Если без вмешательств VB и вручную то  
Копировать таблицу и вставить в Ворд как текст  
Потом обратно в Эксель а дальше уже по фильтру итд...
With my best regards,      Inter_E
 
 
 
#3
30.09.2010 13:59:13
Выдделяем нужный диапазон и:  
Public Sub www()  
Dim c As Range, a  
On Error Resume Next  
For Each c In Selection.Cells  
a = Split(c, Chr(10))  
Stop  
c = a(2)  
Next  
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
#4
30.09.2010 14:00:27
Так. Стоп это для отладки.  
Public Sub www()  
Dim c As Range, a  
On Error Resume Next  
For Each c In Selection.Cells  
a = Split(c, Chr(10))  
c = a(2)  
Next  
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
#5
30.09.2010 14:00:31
Макрос, работает с выделением  
 
Sub Iren__()  
Dim c As Range, x  
For Each c In Selection.Cells  
   x = Split(c, vbLf, 4)  
   If UBound(x) > 2 Then c = x(2)  
Next  
End Sub
 
 
 
#6
30.09.2010 14:01:34
{quote}{login=Казанский}{date=30.09.2010 02:00}{thema=}{post}Макрос, работает с выделением  
 
Sub Iren__()  
Dim c As Range, x  
For Each c In Selection.Cells  
   x = Split(c, vbLf, 4)  
   If UBound(x) > 2 Then c = x(2)  
Next  
End Sub{/post}{/quote}  
А я чего написал?:-)
Я сам - дурнее всякого примера! ...
 
 
 
#7
30.09.2010 14:06:38
Ладно, Серж, ты первый! :)  
Но можно еще короче:  
 
Sub Iren__()  
Dim c As Range  
On Error Resume Next  
For Each c In Selection.Cells  
   c = Split(c, vbLf)(2)  
Next  
End Sub
 
 
 
#8
30.09.2010 14:40:24
Спасибо огромное!!! Заработало )))))
 
 
 
#9
01.10.2010 09:40:27
=ПРАВСИМВ(ЛЕВСИМВ(C3;НАЙТИ(")";C3));ДЛСТР(ЛЕВСИМВ(C3;НАЙТИ(")";C3)))-НАЙТИ("/";ПОДСТАВИТЬ(C3;СИМВОЛ(10);"/";2)))
 
 
 
#10
23.12.2011 13:10:07
Подскажите пожалуйста, как в тексте из 9000 строк удалить каждую вторую и третью
 
 
 
#11
23.12.2011 13:33:36
Sub Main() 'SAS888  
   Dim x As Range: Set x = [C:C].Find(what:=23.01, LookAt:=xlWhole)
   If x Is Nothing Then Rows("3:" & Rows.Count).Delete _  
   Else Columns(3).ColumnDifferences(x).EntireRow.Delete  
End Sub  
 
 
Не моё :)
 
 
 
#12
23.12.2011 13:36:25
Чуть ошибся, ну и лучше так:  
 
 
Sub Main()  
   Dim x As Range: Set x = [D:D].Find(what:="Транспортный участок", LookAt:=xlWhole)
   If x Is Nothing Then Rows("1:" & Rows.Count).Delete _  
   Else Columns(4).ColumnDifferences(x).EntireRow.Delete  
End Sub
 
 
 
#13
23.12.2011 13:48:19
Спасибо, строки удалились. Еще подскажите пожалуйста как сделать, чтобы значения в оставшихся строках не изменялись на #ССЫЛКА!?
 
 
 
#14
23.12.2011 13:58:23
Замените сперва формулы на значения.  
Вообще, зачем удалять строки макросом? Можно ведь просто отсортировать таблицу по столбцу, в котором ненужные пустоты, и затем удалить вручную группу строк после данных (или перед, смотря как сортировать).  
Это чтоб код не писать.
 
 
 
#15
23.12.2011 14:09:31
Благодарю за подсказки. Всё ОК!!
 
 
 
Страницы: 1
Читают тему
Наверх