Разделение столбца по нескольким условиям (в виде макроса)

@Yoooo · Регистрация: 29.09.2010

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

Есть скопированный в один столбец текст, в котором указаны вид оплаты и название товара.
Видов оплаты пять:

Visa (акция)
Visa и MasterCard
Безналичный
За наличные
Обмен

Нужно разделить текст на две колонки - Вид оплаты и Название.
Пример файла во вложении.
Как это можно сделать в виде макроса?

@Казанский · 31.12.2018, 22:54

Yoooo, формулами

Код

=ПРОСМОТР(2;1/ПОИСК(Лист2!$A$1:$A$5;A1);Лист2!$A$1:$A$5)	=ПСТР(A1;ДЛСТР(B1)+1;999)

Виды оплаты я поместил в Лист2!$A$1:$A$5, можно этот список вставить в формулу

Код

=ПРОСМОТР(2;1/ПОИСК({"Visa (акция)":"Visa и MasterCard":"Безналичный":"За наличные":"Обмен"};A1);{"Visa (акция)":"Visa и MasterCard":"Безналичный":"За наличные":"Обмен"})

@Yoooo · 01.01.2019, 10:59 **[ТС]**

Казанский, вариант конечно хороший, но мне это нужно именно в виде макроса.

@Казанский · 01.01.2019, 11:37

Yoooo, то же самое в макросе

Visual Basic

Sub Yo()
  With Range("B1:C" & Cells(Rows.Count, "A").End(xlUp).Row)
    .Formula = Array( _
      "=LOOKUP(2,1/SEARCH({""Visa (акция)"";""Visa и MasterCard"";""Безналичный"";""За наличные"";""Обмен""},A1),{""Visa (акция)"";""Visa и MasterCard"";""Безналичный"";""За наличные"";""Обмен""})" _
      , "=MID(A1,LEN(B1)+1,999)")
    .Value = .Value
  End With
End Sub

@Yoooo 2 / 2 / 0 Регистрация: 29.09.2010 Сообщений: 207
	01.01.2019, 10:59 [ТС]	3
	Казанский, вариант конечно хороший, но мне это нужно именно в виде макроса. 0

	01.01.2019, 11:37

Разделение столбца по нескольким условиям (в виде макроса)

Решение