powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Формула FIND в VBA
4 сообщений из 4, страница 1 из 1
Формула FIND в VBA
    #39199713
Takayavot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Доброго дня.

Вчера уже писала аналогичный вопрос, но по другой формуле.
Но везде какие-то подвохи.
В общем.

EXCEL.
Текстовый столбец, состоящий из слова + слова в скобках. Слово в скобках нужно удалить.
И протянуть формулу макросом вниз до последней строки. Кол-во строк будет меняться.

Формула упростила до поиска символа "(" в строке

Для одной ячейки работает

Код: vbnet
1.
Range("h2").Formula = InStr(1, Range("g2"), "(")



Для всех ячеек не работает

Код: vbnet
1.
Range("h2", Cells(Rows.Count, "g").End(xlUp)).Offset(, 1).Formula = "=InStr(1, range("g2"), "(")"



В идеале нужна чуть более сложная формула (Excel вариант)
Код: vbnet
1.
=IFERROR(LEFT(G1;FIND("(";G1)-1);G1)





Файл в приложении.

Буду благодарна за помощь.
...
Рейтинг: 0 / 0
Формула FIND в VBA
    #39199778
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
И что вызвало сложности? замена точки с запятой на запятую? удвоение двойной кавычки?
...
Рейтинг: 0 / 0
Формула FIND в VBA
    #39199816
Takayavot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
AkinaИ что вызвало сложности? замена точки с запятой на запятую? удвоение двойной кавычки?

Эврика.
Про удвоение двойных кавычек я тоже не знала. Я, наоборот, пыталась через одинарные сделать.
А есть еще какие-нибудь хитрости?

Спасибо!
...
Рейтинг: 0 / 0
Формула FIND в VBA
    #39199990
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Takayavot,
для обработки текста "на месте" можно выполнить замену (* на пусто, НЕ ячейка целиком. Запишите в макрос.
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Формула FIND в VBA
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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