UrlエンコードをするVBAマクロ

Option Explicit

'#-----------------------------------------
'# 文字列をURLエンコード
'#-----------------------------------------

Public Function encodeUrlUtf8(ByRef strSource As String) As String
    Dim objSC As Object
    
    Set objSC = CreateObject("ScriptControl")
    objSC.Language = "Jscript"
    encodeUrlUtf8 = objSC.CodeObject.encodeURIComponent(strSource)
    Set objSC = Nothing
    
End Function

'#-----------------------------------------
'# セルの値をURLエンコード
'#-----------------------------------------
Function encodeCellUrl(targetCell As Range) As String

    encodeCellUrl = encodeUrlUtf8(targetCell.value)
   
End Function

'#-----------------------------------------
'# URLエンコードメイン処理
'#-----------------------------------------
Sub encodeUrlMain()

    Dim targetRange As Range
    Dim targetCell As Range
    
    Set targetRange = Range("C3:C21")
    
    For Each targetCell In targetRange
        targetCell.Offset(0, 1).value = encodeCellUrl(targetCell)
    Next
    
End Sub