Удалить текст после первого определённого символа

@MrRuslanBB · Регистрация: 02.04.2012

Author24 — интернет-сервис помощи студентам

Добрый день!

Напишите пожалуйста макрос который удаляет текст после первого определённого символа - точка с запятой (

,
Ячейки с текстом находятся в столбце D (Их около 50 тыс.).

Пример файла исходник:
(D1) Мебель;Красная;Жёлтая;Пластиковая;Деревянная
(D2) Мебель;Красная;Жёлтая;Пластиковая;БУ
(D3) Мебель;Красная;Жёлтая;Пластиковая;Новая

Пример файла необходимый результат:
(D1) Мебель
(D2) Мебель
(D3) Мебель

Пример файла во вложение.

toiai · 01.02.2017, 18:05

Применительно к твоему примеру:

Visual Basic

Sub pr()
    Dim i&    
    a = ActiveSheet.UsedRange
    For i = 1 To UBound(a)
        a(i, 1) = Split(a(i, 1), ";")(0)
    Next
    Cells(1, 4).Resize(UBound(a)) = a
End Sub

@0mega · 01.02.2017, 21:01

2003
Ругается машина
не нравится ей
a(i, 1) = Split(a(i, 1), ";")(0)

toiai · 02.02.2017, 07:43

Читай внимательно ответ

Сообщение от toiai

Применительно к твоему примеру:

И теперь сравни два файла и найди разницу.

Добавлено через 8 минут
В примере pr.xls удали информацию из ячейки A1 и запусти макрос.

@0mega · 02.02.2017, 19:21

toiai, спасибо за подсказку. Сам бы я до такого не додумался

Сообщение от toiai

В примере pr.xls удали информацию из ячейки A1 и запусти макрос.

Не знаю как автора вопроса, но меня такое решение не удовлетворило бы
Макрос имеет "Конкретную заточку"
Почему вы считаете что в исходном варианте ячейка А1 будет пустой?
Кроме того, я перетаскивал А1 по разным столбцам и строкам (напр R20)

ответ везде один и тот же:
Run-time error '9'
Subscript out of range

получается шаг влево, шаг вправо и мы " вне диапазона" !?
А чтобы получить желаемый результат - надо скопировать "D" и создать новый Лист ?
поправьте если ошибаюсь

@0mega · 03.02.2017, 03:27

...Напишите пожалуйста макрос который ...

Если макрос - это дань моде а не обязательное условие , тогда:

1) копируем формулу и вставляем в ячейку J1

Код

=ЛЕВБ(D1;НАЙТИ(";";D1)-1)

2) скопировать ячейку J1
3) переводим курсор в окошко адреса ( слева от строки формул)
4) В окошке уже написано "J1" - надо заменить на "J50000"
5) Shift+Ctrl+Стрелка вверх потом Ctrl+V.
6) ЛЕВОЙ мышкой ухватиться за ребро выделения и перетащить на D1
7) только значения

@pashulka · 03.02.2017, 19:12

Если макрос - вовсе не обязательное условие, то ещё один вариант :

Выделить столбец с данными и Данные, Текст по столбцам, С разделителями, Далее, Точка с запятой(все остальные убрать), Далее, выделить все столбцы, кроме первого и супротив каждого установить Пропустить

Удалить текст после первого определённого символа

Решение

Решение

Решение

toiai 3218 / 967 / 223 Регистрация: 29.05.2010 Сообщений: 2,087
	02.02.2017, 07:43	4
	Читай внимательно ответ Сообщение от toiai Применительно к твоему примеру: И теперь сравни два файла и найди разницу. Добавлено через 8 минут В примере pr.xls удали информацию из ячейки A1 и запусти макрос. 0

@0mega 6 / 7 / 1 Регистрация: 05.11.2013 Сообщений: 305
	02.02.2017, 19:21	5
	toiai, спасибо за подсказку. Сам бы я до такого не додумался Сообщение от toiai В примере pr.xls удали информацию из ячейки A1 и запусти макрос. Не знаю как автора вопроса, но меня такое решение не удовлетворило бы Макрос имеет "Конкретную заточку" Почему вы считаете что в исходном варианте ячейка А1 будет пустой? Кроме того, я перетаскивал А1 по разным столбцам и строкам (напр R20) ответ везде один и тот же: Run-time error '9' Subscript out of range получается шаг влево, шаг вправо и мы " вне диапазона" !? А чтобы получить желаемый результат - надо скопировать "D" и создать новый Лист ? поправьте если ошибаюсь 1

@pashulka 4135 / 2239 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	03.02.2017, 19:12	7
	Сообщение было отмечено MrRuslanBB как решение Решение Если макрос - вовсе не обязательное условие, то ещё один вариант : Выделить столбец с данными и Данные, Текст по столбцам, С разделителями, Далее, Точка с запятой(все остальные убрать), Далее, выделить все столбцы, кроме первого и супротив каждого установить Пропустить 2