[Iska]

Попробуйте так:

Скрытый текст

Код:

Option Explicit

Sub Sample()
    Dim objCell As Cell
    
    If Selection.Tables.Count = 1 Then
        With CreateObject("VBScript.RegExp")
            .Pattern = "^(\d+/\d+)(\()\d+\%(\)).*"
            
            For Each objCell In Selection.Tables.Item(1).Range.Cells
                If .Test(objCell.Range.Text) Then
                    With .Execute(objCell.Range.Text).Item(0).Submatches
                        objCell.Range.Text = .Item(0) & .Item(1) & Format(CDbl(Split(.Item(0), "/")(0)) / CDbl(Split(.Item(0), "/")(1)), "Percent") & .Item(2)
                    End With
                End If
            Next objCell
        End With
    Else
        MsgBox "Please select table", vbInformation + vbOKOnly, "Need a table in selection"
    End If
End Sub

Надеюсь, у Вас не будет нуля в знаменателях, я не стал делать такую проверку.

P.S. Всю таблицу, разумеется, выделять не обязательно. Необходимо и достаточно поместить внутрь неё курсор ввода.