Макросом удалить первую строку (в ячейке), при условии.

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Макросом удалить первую строку (в ячейке), при условии. (Макросы/Sub)

Obelisk

Дата: Пятница, 14.07.2017, 09:11 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Здравствуйте, подскажите пожалуйста как макросом удалить первую строку в ячейке, при условии, что эта строка в ячейке пустая.

К сообщению приложен файл: 9476302.xlsm (8.4 Kb)

Сообщение отредактировал Obelisk - Пятница, 14.07.2017, 09:18

Ответить

_Boroda_

Дата: Пятница, 14.07.2017, 09:37 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

Репутация: 6667 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Что-то типа такого
[vba]

Код

    If InStr(Range("B1"), Chr(10)) = 1 Or InStr(Range("B1"), Chr(13)) = 1 Then
        Range("B1") = Mid(Range("B1"), 2)
    End If

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Obelisk

Дата: Пятница, 14.07.2017, 09:47 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Ok, работает, спасибо, если не затруднит, можете комментарий к макросу написать?

Ответить

_Boroda_

Дата: Пятница, 14.07.2017, 10:01 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

Репутация: 6667 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Ок. Могу.
Chr - код символа. http://book.itep.ru/10/ascii.htm Перенос на другую строку может осуществляться как непосредственно переводом строки (код 10), так и переводом каретки (код 13)
InStr - номер первого вхождения. Похож на функцию Excel ПОИСК https://msdn.microsoft.com/en-us....%3Dtrue

Проверяем, не является ли единицей номер первого вхождения символа 10 или символа 13 в текст ячейки В1
Если является, то выводим в В1 все то, что там и было, но со второго символа

Ответить

AndreTM

Дата: Пятница, 14.07.2017, 10:03 | Сообщение № 5

Группа: Друзья

Ранг: Старожил

Сообщений: 1762

Репутация: 501 ±

Замечаний: 0% ±

2003 & 2010

Цитата Obelisk, 14.07.2017 в 09:47, в сообщении № 3 ()

можете комментарий к макросу написать?

Так "комментарий" - это ваше "задание":

Цитата

Если первая строка в ячейке "пустая" (т.е. первый символом в ячейке - это знак переноса строки, символ с кодом 10 или 13) - то записываем в ячейку её же содержимое, начиная со второго символа (т.е. без первого символа - знака переноса строки)

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Ответить

Obelisk

Дата: Пятница, 14.07.2017, 10:20 | Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Большое спасибо!

Ответить

Макросом удалить первую строку (в ячейке), при условии. (Макросы/Sub)

Страница 1 из 1
1