Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Из ячейки номера вопросов перенести в отдельный стлобец
 
#1
05.06.2020 04:29:22
Добрый день, коллеги
Из заголовка не совсем понятна задача, поэтому напишу подробнее

Есть таблица из 4 колонок, она во вложенном примере.
первый столбец - должны стоять номера вопросов (пронумеровать не проблема)
второй столбец содержит тестовый вопрос в формате номер # точка # пробел # текст_вопроса
третий и четвертый столбцы несущественны, они для полноты картины.

Вопрос в следующем - подскажите как написать макрос, который найдет в столбце №2 номер каждого вопроса и перенесет его в соответствующее место в столбце №1 (только НОМЕР, сам текст вопроса должен остаться в ячейке). В настоящей таблице больше 800 позиций, руками по ячейкам номера вытирать - куча времени...
 
 
 
#2
05.06.2020 05:48:58
Цитата
agam написал:
второй столбец содержит тестовый вопрос в формате номер # точка # пробел # текст_вопроса
=ПСТР(B2;1;ПОИСК(".";B2)-1)
НА МЯСО В ПРОФИЛЕ
 
 
 
#3
05.06.2020 06:33:49
Спасибо, интересная функция, но не совсем то что нужно... Главная цель - удалить номер из второго столбца а не скопировать в первый, это вторично...
Подскажите, как убрать из второго столбца номера?
 
 
 
#4
05.06.2020 06:36:17
текст по столбца разделитель точка
Лень двигатель прогресса, доказано!!!
 
 
 
#5
05.06.2020 07:46:24
Команда обрабатывает все точки в предложении. Соответственно корежит все содержимое...
 
 
 
#6
05.06.2020 07:53:58
копируем в Word
Ctrl+H , Включаем поиск по маске , ищем то что в кавычках "<[0-9]@. <", то на что меняем оставляем пустым. Заменяем все. Копируем обратно в Excel.

Ну или
Код
Sub ExtrNumber()
For Each cell In Selection
    cell.Offset(, -1) = Left(cell, InStr(cell, ". "))
    cell.Value = Mid(cell, InStr(cell, ". ") + 2)
Next
End Sub

Выделить область, запустить , получить.
Изменено: БМВ - 05.06.2020 08:06:05
По вопросам из тем форума, личку не читаю.
 
 
 
#7
05.06.2020 08:39:05
Скрытый текст
хотя лучше наверное так
Скрытый текст
Изменено: buchlotnik - 05.06.2020 08:55:16
Соблюдение правил форума не освобождает от модераторского произвола
 
 
 
#8
05.06.2020 09:01:11
Цитата
БМВ написал:
копируем в WordCtrl+H , Включаем поиск по маске , ищем то что в кавычках "<[0-9]@. <", то на что меняем оставляем пустым. Заменяем все. Копируем обратно в Excel.
ничего не происходит...
 
 
 
#9
05.06.2020 09:08:45
agam, в E2. Затем скопировать только значения во второй столбец
=СЖПРОБЕЛЫ(ПСТР(B2;1+ПОИСК(".";B2);9999))
НА МЯСО В ПРОФИЛЕ
 
 
 
#10
05.06.2020 10:02:20
Спасибо большое, отличный вариант!

Большое спасибо всем откликнувшимся.
Варианты с макросами еще не пробовал, но позже обязательно попробую
 
 
 
#11
05.06.2020 10:07:25
Цитата
agam написал:
ичего не происходит...
значит не то что -то делаете.
Цитата
agam написал:
личный вариант!
ну тогда уж
=REPLACE(B2;1;FIND(". ";B2)+1;)
По вопросам из тем форума, личку не читаю.
 
 
 
Страницы: 1
Наверх