Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Вытащить 1,2,... слово между кавычек
 
#1
08.12.2024 16:39:12
A1 = "1","Транспортные услуги (нов)","18000.00","5","90000.00"

Нужно разобрать значение А1 указанное выше и назначить разным ячейкам значения оттуда между кавычками. Например:
A2 = Транспортные услуги (нов)
A3 = 18000.00
A4 = 5

и тд

Перебрал уже с десяток вариантов с форума, но такого варианта нигде не рассматривается
Изменено: Jake - 08.12.2024 16:39:45
 
 
 
#2
08.12.2024 16:55:32
Код
=ПОДСТАВИТЬ(ФИЛЬТР.XML("<r><i>"&ПОДСТАВИТЬ(A1;",";"</i><i>")&"</i></r>";"//i");"""";"")

Деление слипшегося текста функцией ФИЛЬТР.XML
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
08.12.2024 17:16:27
Цитата
Нужно разобрать значение А1
Разносит по горизонтали из столбца А
Код
Sub iRazdel()
Dim i As Long
Dim iLastRow As Long
Dim mo As Object
Dim n As Integer
 With CreateObject("VBScript.RegExp")
     .Global = True
     .IgnoreCase = True
     .MultiLine = True
     .Pattern = """.+?"""
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
   For i = 1 To iLastRow
     If .Test(Cells(i, 1)) Then
      Set mo = .Execute(Cells(i, 1))
        Cells(i, 2).Resize(, mo.Count).NumberFormat = "@"
      For n = 0 To mo.Count - 1
        Cells(i, n + 2) = Mid(mo(n), 2, Len(mo(n)) - 2)
      Next
     End If
   Next
 End With
End Sub
 
 
 
#4
08.12.2024 18:04:21
Kuzmich, вроде и с SubMatches замечательно тоже работает, без необходимости извлекать подстроку
Скрытый текст
Изменено: nilske - 08.12.2024 18:05:01 (оформление кода)
 
 
 
#5
08.12.2024 18:06:46
Так вроде воспрошающий хочет в столбец (судя по его посту), а не в строку, т.е. А2, А3 и т.д.
Не столь важно что ты делаешь, важно как ты это делаешь! (Джимми Лансфорд)
 
 
 
#6
08.12.2024 18:07:41
Цитата
с SubMatches замечательно тоже работает,
Согласен
 
 
 
#7
08.12.2024 18:09:15
Sergius, возможно "по строкам" было лишь в качестве не совсем удачного примера для темы, ведь "по столбцам" и правда лучше )
 
 
 
#8
08.12.2024 18:32:42
в a2 и ниже
=TRIM(MID(SUBSTITUTE($A$1;"""";REPT(" ";LEN($A$1)));((ROW()-2)*2+3)*LEN($A$1);LEN($A$1)))

в b1 и правее
=TRIM(MID(SUBSTITUTE($A$1;"""";REPT(" ";LEN($A$1)));((column()-2)*2+3)*LEN($A$1);LEN($A$1)))
Изменено: БМВ - 08.12.2024 18:34:40
По вопросам из тем форума, личку не читаю.
 
 
 
Страницы: 1
Наверх