how can i write vba code for replacing continuos fraction numbers in on row

Sub repla()
Dim LR As Long
Sheets("Tool_Output").Select
LR = Range("C" & Rows.Count).End(xlUp).Row
For r = 2 To LR
  s = Cells(r, 3)
  arr = Split(s, ",")
  For i = LBound(arr) To UBound(arr)
    p = InStr(arr(i), " IN")
    frac = Left(arr(i), p - 1)
    af = Right(arr(i), Len(arr(i)) - p + 1)
    evfrac = Format(Evaluate(frac), "0.00")
    ss = ss & evfrac & af & ", "
  Next
  Cells(r, 4) = Left(ss, Len(ss) - 2)
  ss = ""
Next

End Sub

i just want that 1/2 should display .5 IN LG other values should display maximum 3 or 2 values(1/7--> .143,1/4 as .25)


but i some doubt that if there is 1/2 -->0.50 1/7-->0.143

i want this should be display in this format -->(1/2)---->.5 and 1/7-->.143
followed 1/4-->.25
Fraction Decimal
15/16 .937
7/8 .875
13/16 .812
3/4 .75
11/16 .687
5/8 .625
9/16 .562
1/2 .5
7/16 .437
3/8 .375
11/32 .343
5/16 .312
9/32 .281
1/4 .25
15/64 .234
7/32 .218
13/64 .203
3/16 .187
23/128 .179
11/64 .171
21/128 .164
5/32 .156
19/128 .148
9/64 .140
1/8 .125
7/64 .109
3/32 .093
5/64 .078
1/16 .062
3/64 .046
1/32 .031
1/64 .015

now it showin like this

.500 IN HD, .500 IN HUB, .071 IN OD, .125 IN THK
.500 IN HD
.200 IN THK
.143 IN ID

i want this type it should display how can i do it

.5 IN HD, .5 IN HUB, .071 IN OD, .125 IN THK
.5 IN HD
.2 IN THK
.143 IN ID

Do you want it like this?

i am very Sorry for that its working fine
how can modify this because in my sheet i having different fraction numbers(1/2,1-1/2,3-4/15,4-1/16) like

example
it should display like this ('-' relate as '/') fractions
fraction decimal

1-1/2 IN LG,1/2 IN MM 1.5 IN LG,0.5 IN MM
1/2 IN OD,2-3/4 IN OD 0.5 IN LG,2.75 IN OD
2-3/4 IN ID,1/2 IN LG 2.75 IN ID,0.5 IN LG
-
-
etc

Sub repla()
Dim LR As Long
Sheets("Tool_Output").Select
LR = Range("C" & Rows.Count).End(xlUp).Row
For r = 2 To LR
  s = Cells(r, 3)
  arr = Split(s, ",")
  For i = LBound(arr) To UBound(arr)
    p = InStr(arr(i), " IN")
    frac = Left(arr(i), p - 1)
    af = Right(arr(i), Len(arr(i)) - p + 1)
    evfrac = Format(Evaluate(frac), "0.###")
    ss = ss & evfrac & af & ", "
  Next
  Cells(r, 4) = Left(ss, Len(ss) - 2)
  ss = ""
Next

End Sub

To attach a Workbook
(please do not post pictures of worksheets)

• Click Advanced (next to quick post),
• Scroll down until you see "Manage Attachments",
• Click that then select "add files" (top right corner).
• Click "Select Files" find your file, click "open" click "upload"
• Once the upload is completed the file name will appear below the input boxes in this window.
• Click "Done" at bottom right to close the Attachment Manager.
• Click "Submit Reply"

Sub repla()
    Dim LR As Long
    Dim Dash As Long, _
        Whole As Double
    
    Sheets("Tool_Output").Select
    LR = Range("C" & Rows.Count).End(xlUp).Row
    For r = 2 To LR
      s = Cells(r, 3)
      arr = Split(s, ",")
      For i = LBound(arr) To UBound(arr)
        Whole = 0
        p = InStr(arr(i), " IN")
        frac = Left(arr(i), p - 1)
        Dash = InStr(frac, "-")
        If Dash > 0 Then
            Whole = Left(frac, Dash - 1)
            frac = Mid(frac, Dash + 1, Len(frac))
        End If
        af = Right(arr(i), Len(arr(i)) - p + 1)
        evfrac = Whole + Format(Evaluate(frac), "0.###")
        ss = ss & evfrac & af & ", "
      Next i
      Cells(r, 4) = Left(ss, Len(ss) - 2)
      ss = ""
    Next r

End Sub

its working Thanks



but some doubts that if the value 1-1/16 ----> 2.063
2-3/64 --->2.0467
its taking round fiigure but i dont need of round figure
how can i do it
1-1/16 --->1.062
2-1/16 --->2.062
2-3/64 --->2.046

No appriciation for the people that try to help you...

I'll merge these 2 threads as you have replies to both of them but next time that you'll do it9duplicate threads) you'll be a banned user.