Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Удалить в ячейке строки начиная со второй / 14 сообщений из 14, страница 1 из 1
05.10.2010, 21:53
    #36883597
Zerat
Zerat
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить в ячейке строки начиная со второй
Добрый вечер!
Подскажите, пож-та, как будет выглядеть код VBA для удаления в ячейке всех строк начиная со второй. Строки разделены символом, к-й получается нажатием Alt+Enter.
Допустим, что нужно обработать все ячейки столбца А.

Нашел часть кода, по расщеплению содержимого ячейки с разделителем chr(10):

Код: plaintext
1.
For i = Cells(Rows.Count, "A").End(xlUp).Row To  1  Step - 1 
a = Split(Cells(i, "A"), Chr( 10 ))

Но не знаю как определить вторую и следующие строки ячейки для удаления...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.10.2010, 22:43
    #36883661
Thermik
Thermik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить в ячейке строки начиная со второй
Zerat,

Может так получится? http://icqrobot.ru/Archer/2010_09_29/page_0102.html
ставим признак Символ разделитель - Новая строка, а потом удалим ненужные столбцы и обрано собирем два столбца.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.10.2010, 23:05
    #36883680
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить в ячейке строки начиная со второй
В смысле "не можете определить"? Вы же код примерно уже написАли...
Можно так:
Код: plaintext
1.
2.
For Each c In Columns( 1 ).Cells
    c.Value = Split(c.Value, Chr( 10 ))
Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.10.2010, 23:41
    #36883739
R Dmitry
R Dmitry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить в ячейке строки начиная со второй
при чем тут split.....????


Sub test()
For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
Cells(i, 1) = Mid(Cells(i, 1).Text, 1, InStr(1, Cells(i, 1).Text, Chr(10)))
Next i
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.10.2010, 07:08
    #36883861
Zerat
Zerat
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить в ячейке строки начиная со второй
AndreTMВ смысле "не можете определить"? Вы же код примерно уже написАли...
Можно так:
Код: plaintext
1.
2.
For Each c In Columns( 1 ).Cells
    c.Value = Split(c.Value, Chr( 10 ))
Next


Но здесь же у Вас нет операции удаления второй и последующих строк в ячейке?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.10.2010, 07:33
    #36883871
Zerat
Zerat
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить в ячейке строки начиная со второй
R Dmitryпри чем тут split.....????


Sub test()
For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
Cells(i, 1) = Mid(Cells(i, 1).Text, 1, InStr(1, Cells(i, 1).Text, Chr(10)))
Next i
End Sub

Спасибо. Макрос удаляет вторую и последующие строки в ячейке. Но почему он оставляет вторую строку (она пустая)?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.10.2010, 09:32
    #36883954
R Dmitry
R Dmitry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить в ячейке строки начиная со второй
Zerat,

Cells(i, 1) = Mid(Cells(i, 1).Text, 1, InStr(1, Cells(i, 1).Text-1, Chr(10)))
замените эту строку должно помочь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.10.2010, 09:36
    #36883960
R Dmitry
R Dmitry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить в ячейке строки начиная со второй
Cells(i, 1) = Mid(Cells(i, 1).Text, 1, InStr(1, Cells(i, 1).Text, Chr(10)) - 1)
:) Не там -1 поставил, эта строка верная
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.10.2010, 13:53
    #36884438
Zerat
Zerat
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить в ячейке строки начиная со второй
R DmitryCells(i, 1) = Mid(Cells(i, 1).Text, 1, InStr(1, Cells(i, 1).Text, Chr(10)) - 1)
:) Не там -1 поставил, эта строка верная

VBA ругается на эту строчку.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.10.2010, 14:27
    #36884562
R Dmitry
R Dmitry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить в ячейке строки начиная со второй
ругается потому что строк таких нет вот вам с проверкой
Sub test()
On Error GoTo error_test
Dim j&
For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
j = InStr(1, Cells(i, 1).Text, Chr(10))
Cells(i, 1) = Mid(Cells(i, 1).Text, 1, j - 1)
Next i
Exit Sub
error_test:
MsgBox ("Ячеек для преобразования не обнаружено")
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.10.2010, 14:55
    #36884650
R Dmitry
R Dmitry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить в ячейке строки начиная со второй
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub test()
On Error GoTo error_test
Dim j&
For i = Cells(Rows.Count, "A").End(xlUp).Row To  1  Step - 1 
j = InStr( 1 , Cells(i,  1 ).Text, Chr( 10 ))
Cells(i,  1 ) = Mid(Cells(i,  1 ).Text,  1 , j -  1 )
Next i
Exit Sub
error_test:
MsgBox ("Ячеек для преобразования не обнаружено")
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.10.2010, 15:29
    #36884765
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить в ячейке строки начиная со второй
ZeratAndreTMВ смысле "не можете определить"? Вы же код примерно уже написАли...
Можно так:
Код: plaintext
1.
2.
For Each c In Columns( 1 ).Cells
    c.Value = Split(c.Value, Chr( 10 ))
Next

Но здесь же у Вас нет операции удаления второй и последующих строк в ячейке?
Вы пробовали тестировать этот код? Хотя бы поняли, что он делает?
Если непонятно - скажу: для каждой ячейки содержимое переписывается в массив (a(0) = первая строка, a(1) = вторая, a(2) = третья и т.д.), при этом обращение к этому массиву без указания индекса возвращает первое значение (a(0)), то есть только нужную нам первую строку, которую мы и записываем обратно в ячейку.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.10.2010, 20:51
    #36885614
Zerat
Zerat
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить в ячейке строки начиная со второй
AndreTM, R Dmitry, спасибо. В итоге оба варианта работают.

AndreTM, я Ваш код действительно не запускал. Думал что Вы его не дописали. Но запустил и понял, что работает. И еще спасибо за объяснения.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
06.11.2018, 08:48
    #39728343
Ken2487
Ken2487
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить в ячейке строки начиная со второй
ZeratAndreTM, R Dmitry, спасибо. В итоге оба варианта работают.

AndreTM, я Ваш код действительно не запускал. Думал что Вы его не дописали. Но запустил и понял, что работает. И еще спасибо за объяснения.

Ребят что-то не работают у меня эти коды или руки кривые, верней работает код который оставляет вторую строку пустой....
но она мешает...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Удалить в ячейке строки начиная со второй / 14 сообщений из 14, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 466ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2172208]:
 0ms
get settings:
 11ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 47ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 321ms
total:  466ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]