Помогите преобразовать данные. Есть вот такая запись 010460026601494821&NDF9wF800513000093ulNZ24010117823 Нужно получить (01)04600266014948(21)&NDF9wF800513000093ulNZ24010117823 Скобки должны быть физическими.
Function iSkobki(cell$)
With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = "(\d{2})(\d{14})(\d{2})(.+)"
If .test(cell) Then
iSkobki = .Replace(cell, "($1)$2($3)$4")
Else
iSkobki = ""
End If
End With
End Function
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
В данном случае можно не мудрить, а просто собрать ,теперь хоть видно откуда 14 и 7 :-) ="("&MID(A1;2;2)&")"&MID(A1;3;14)&"("&MID(A1;17;2)&")"&MID(A1;19;7)