есть код вожу десятичные выводит целые только числа нужно чтобы показывал все числа после запятой
Код
Sub test1()
Dim i&, s$: t = Range("A1")
With CreateObject("VBScript.RegExp"): .Pattern = "\d+\*\d+\*\d+": .Global = True
For i = 0 To .Execute(t).Count - 1: s = s & "+" & "(" & .Execute(t)(i) & ")": Next
Range("F1").NumberFormat = "@": Range("F1") = "=" & Mid(s, 2)
End With
End Sub
60*12*1,14+55*18*1,14+35*20*1,14+115*15*1,14+46*16*1,14+65*15*1,14 ставлю так выходит так
Здравствуйте. Я новичок в excel. меня интересует есть ли формула или макрос чтобы вставить скобки между знаками + например я пишу =25*15*7+25*78*15+14*7*8 чтобы получилось так =(25*15*7)+(25*78*15)+(14*7*7)