Excelの各セルのURLを読み込んでURIデコードするサンプルコード（%で始まる謎の文字列を日本語にする）

Sub ボタン1_Click()
    Dim i As Long
    Dim cellValue As String
    Dim decodedURI As String
    
    'クリア処理
    Range(Range("B5"), Range("B" & Cells.Rows.Count)).ClearContents
    
    'ヘッダ行以降を処理させるため5行目を選択
    Cells(5, 1).Select
    
    Do
        'オフセットによる行移動
        cellValue = ActiveCell.Offset(i, 0).Value
        
        If Len(cellValue) = 0 Then
            '入力値がない場合終了
            Exit Do
        Else
            'URIDecode
            With CreateObject("ScriptControl")
              .Language = "JScript"
              decodedURI = .CodeObject.decodeURI(cellValue)
            End With
            ActiveCell.Offset(i, 1).Value = decodedURI
            
        End If
        
        i = i + 1
    
    Loop

End Sub