Вырезать числа из текста

[Aleksandr]

как сделать чтобы из строки at point X=345465,34 Y=8657845,45 Z= 0.00
число при Х записывалось в одну ячейку а при у в другую ячейку.

[EducatedFool]

Надо сделать при помощи формулы, или макроса?

При помощи формул:

  Ячейка: B1      Формула  (стиль A1):   =ЗНАЧЕН(ПСТР(A1;НАЙТИ("X=";A1)+2;НАЙТИ("Y=";A1)-НАЙТИ("X=";A1)-3))
                  Формула  (стиль R1C1): =ЗНАЧЕН(ПСТР(RC[-1];НАЙТИ("X=";RC[-1])+2;НАЙТИ("Y=";RC[-1])-НАЙТИ("X=";RC[-1])-3))

  Ячейка: C1      Формула  (стиль A1):   =ЗНАЧЕН(ПСТР(A1;НАЙТИ("Y=";A1)+2;НАЙТИ("Z=";A1)-НАЙТИ("Y=";A1)-3))
                  Формула  (стиль R1C1): =ЗНАЧЕН(ПСТР(RC[-2];НАЙТИ("Y=";RC[-2])+2;НАЙТИ("Z=";RC[-2])-НАЙТИ("Y=";RC[-2])-3))

Пример:

[Aleksandr]

можно и формулы

Почему-то не работает

Все разобрался . Спасибо.

[Aleksandr]

А как сделать это макросом?

[EducatedFool]

Как-то так:

Sub test()
    Dim cell As Range: Application.ScreenUpdating = False
    For Each cell In Range([A1], Range("A" & Rows.Count).End(xlUp)).Cells
        cell.Next = Val(Replace(Split(cell, "=")(1), ",", "."))
        cell.Next.Next = Val(Replace(Split(cell, "=")(2), ",", "."))
    Next cell
    Application.ScreenUpdating = True
End Sub

Пример:

[Aleksandr]

А как сделать чтобы вставлялось через строчку

[EducatedFool]

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

А как сделать чтобы вставлялось через строчку

А поподробнее можно?
Хоть бы показали пример того, что должно получиться...

[Aleksandr]

Чтобы значения при х и у были разбросаны с шагом 1. Вот пример.

345465.34	         8657845.45
	
345465.34	         8657845.45

345465.34	         8657845.45

345465.34	         8657845.45

345465.34	         8657845.45

345465.34	         8657845.45

[EducatedFool]

Sub test()
    Dim cell As Range: Application.ScreenUpdating = False
    For Each cell In Range([A1], Range("A" & Rows.Count).End(xlUp)).Cells
        Cells(cell.Row * 2 - 1, 2) = Val(Replace(Split(cell, "=")(1), ",", "."))
        Cells(cell.Row * 2 - 1, 3) = Val(Replace(Split(cell, "=")(2), ",", "."))
    Next cell
    Application.ScreenUpdating = True
End Sub

[Aleksandr]

Я сделал по другому

Sub test()

        kol = 15
    Dim cell As Range: Application.ScreenUpdating = False
  For Each cell In Range([A1], Range("A" & Rows.Count).End(xlUp)).Cells
 
    cell.Cells(kol, 1).Next = Val(Replace(Split(cell, "=")(1), ",", "."))
    cell.Cells(kol, 1).Next.Next.Next = Val(Replace(Split(cell, "=")(2), ",", "."))
  kol = kol + 1
   Next cell
End Sub