Para lo que quieres se requiere hacer una modificación completa a tu información, en la imagen que ves es el resultado de la macro que al final hace el reemplazo como quieres aunque para ello la amcro hace lo siguiente primero lee las coordenadas y crea las dos tablas la (X, Y) y la de cuadros amarillos, de hay crea un contador en la celda G1, el cual cada que ejecutes la macro se posicionara en el siguiente registro a modificar, y hará el reemplazo, con funciones hallar, extraer, un concatenado, la tabla de color amarillo la pondrá primero en fórmula y luego la pasara a valor esto porque de dejarla así pone el concatenado así, 0.01000000, 0.0500000, etc, en resumen lo único que vas a hacer es teclear las coordenadas de autocad y una vez que terminas la macro hará el resto
y esta es la macro
Sub armar_datos()
Set datos = Range("c4").CurrentRegion.Columns(2)
With datos
filas = .Rows.Count
Set tabla = .Columns(6).Resize(filas, 2)
celda = datos.Cells(1, 1).Address(0, 0)
End With
With tabla
.Columns(1).Formula = "=MID(" & celda & ",23,10)"
.Columns(2).Formula = "=MID(" & celda & ",37,10)"
Set tabla2 = .Cells(2, 4).Resize(filas - 1, 1)
Set tabla3 = .Columns(7).CurrentRegion
End With
With tabla2
celda1 = datos.Cells(2, 1).Address(0, 0)
celda2 = tabla.Cells(1, 1).Address(0, 0)
celda3 = tabla.Cells(2, 1).Address(0, 0)
celda4 = tabla.Cells(1, 2).Address(0, 0)
celda5 = tabla.Cells(2, 2).Address(0, 0)
.Formula = "=round(if(" & celda1 & "=" & """""" & "," & """""" & _
",sqrt((" & celda2 & "-" & celda3 & ")^2+(" & celda4 & "-" & celda5 & ")^2)),2)"
.Value = .Value
End With
Range("g1") = Range("g1") + 1
With tabla3
If Range("g1") <= .Rows.Count - 1 Then
Set fila = .Rows(Range("g1") + 1)
hallar = WorksheetFunction.Search(",", fila, 1)
texto = Left(fila, hallar)
matriz = Application.Transpose(tabla2)
cadena = Join(Application.Index(matriz, 1, 0), ",")
fila.Value = texto & cadena
Else
MsgBox ("Alcanzaste el fin del registro "), vbInformation, "AVISO"
End If
End With
Erase matriz
Set datos = Nothing: Set tabla = Nothing: Set tabla2 = Nothing
Set tabla3 = Nothing
End Sub