Удалить в ячейке строки начиная со второй / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Удалить в ячейке строки начиная со второй

14 сообщений из 14, страница 1 из 1

Удалить в ячейке строки начиная со второй

#36883597

Zerat

Гость

Добрый вечер!
Подскажите, пож-та, как будет выглядеть код VBA для удаления в ячейке всех строк начиная со второй. Строки разделены символом, к-й получается нажатием Alt+Enter.
Допустим, что нужно обработать все ячейки столбца А.

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

Код: plaintext

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, 21:53

| Ответить | Цитировать | Написать

Удалить в ячейке строки начиная со второй

#36883661

Thermik

Гость

Zerat,

Может так получится? http://icqrobot.ru/Archer/2010_09_29/page_0102.html
ставим признак Символ разделитель - Новая строка, а потом удалим ненужные столбцы и обрано собирем два столбца.

...

Рейтинг:

0 / 0

05.10.2010, 22:43

| Ответить | Цитировать | Написать

Удалить в ячейке строки начиная со второй

#36883680

AndreTM

Участник

Откуда: Где-то в вологодских лесах...

Сообщения: 6 316

Рейтинг: 0 / 0

В смысле "не можете определить"? Вы же код примерно уже написАли...
Можно так:

Код: plaintext

1.
2.

For Each c In Columns( 1 ).Cells
    c.Value = Split(c.Value, Chr( 10 ))
Next

...

Рейтинг:

0 / 0

05.10.2010, 23:05

| Ответить | Цитировать | Написать

Удалить в ячейке строки начиная со второй

#36883739

R Dmitry

Участник

Откуда: Минск

Сообщения: 395

Рейтинг: 0 / 0

при чем тут 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

05.10.2010, 23:41

| Ответить | Цитировать | Написать

Удалить в ячейке строки начиная со второй

#36883861

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:08

| Ответить | Цитировать | Написать

Удалить в ячейке строки начиная со второй

#36883871

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, 07:33

| Ответить | Цитировать | Написать

Удалить в ячейке строки начиная со второй

#36883954

R Dmitry

Участник

Откуда: Минск

Сообщения: 395

Рейтинг: 0 / 0

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:32

| Ответить | Цитировать | Написать

Удалить в ячейке строки начиная со второй

#36883960

R Dmitry

Участник

Откуда: Минск

Сообщения: 395

Рейтинг: 0 / 0

Cells(i, 1) = Mid(Cells(i, 1).Text, 1, InStr(1, Cells(i, 1).Text, Chr(10)) - 1)
:) Не там -1 поставил, эта строка верная

...

Рейтинг:

0 / 0

06.10.2010, 09:36

| Ответить | Цитировать | Написать

Удалить в ячейке строки начиная со второй

#36884438

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, 13:53

| Ответить | Цитировать | Написать

Удалить в ячейке строки начиная со второй

#36884562

R Dmitry

Участник

Откуда: Минск

Сообщения: 395

Рейтинг: 0 / 0

ругается потому что строк таких нет вот вам с проверкой
_{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:27

| Ответить | Цитировать | Написать

Удалить в ячейке строки начиная со второй

#36884650

R Dmitry

Участник

Откуда: Минск

Сообщения: 395

Рейтинг: 0 / 0

Код: 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, 14:55

| Ответить | Цитировать | Написать

Удалить в ячейке строки начиная со второй

#36884765

AndreTM

Участник

Откуда: Где-то в вологодских лесах...

Сообщения: 6 316

Рейтинг: 0 / 0

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, 15:29

| Ответить | Цитировать | Написать

Удалить в ячейке строки начиная со второй

#36885614

Zerat

Гость

AndreTM, R Dmitry, спасибо. В итоге оба варианта работают.

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

...

Рейтинг:

0 / 0

06.10.2010, 20:51

| Ответить | Цитировать | Написать

Период между сообщениями больше года.

Удалить в ячейке строки начиная со второй

#39728343

Ken2487

Гость

ZeratAndreTM, R Dmitry, спасибо. В итоге оба варианта работают.

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

Ребят что-то не работают у меня эти коды или руки кривые, верней работает код который оставляет вторую строку пустой....
но она мешает...

...

Рейтинг:

0 / 0

06.11.2018, 08:48

| Ответить | Цитировать | Написать

14 сообщений из 14, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Удалить в ячейке строки начиная со второй

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&gotonew=1&tid=2172208]:	0ms
get settings:	8ms
get forum list:	13ms
check forum access:	4ms
check topic access:	4ms
track hit:	33ms
get topic data:	13ms
get first new msg:	9ms
get forum data:	3ms
get page messages:	55ms
get tp. blocked users:	2ms
others:	293ms

total:	437ms