gistfile1.txt

Sub SendHttpPost()
    Dim xmlHttp As Object
    Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
    Dim url As String
    url = "ここに送信先のURLを入力"  ' 送信先のURL
    Dim postData As String
    postData = "ここに送信するデータを入力"  ' 送信するデータ
    
    xmlHttp.Open "POST", url, False
    xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    xmlHttp.send postData
    
    Dim response As String
    response = xmlHttp.responseText
    MsgBox response  ' レスポンスをメッセージボックスで表示
    
      ' ブラウザでページを開く
    Dim shell As Object
    Set shell = CreateObject("WScript.Shell")
    shell.Run url
End Sub

=IFERROR(INDEX($A$2:$A$10, SMALL(IF(ISNUMBER(SEARCH($A$2:$A$10, $B$1)), MATCH(ROW($A$2:$A$10), ROW($A$2:$A$10)), ""), ROW(1:1))), "")

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(
SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(
SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(
SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1, " ", "%20"), "!", "%21"), """", "%22"), "#", "%23"), "$", "%24"), "%", "%25"), "&", "%26"), "'", "%27"),
"(", "%28"), ")", "%29"), "*", "%2A"), "+", "%2B"), ",", "%2C"), "/", "%2F"), ":", "%3A"), ";", "%3B"), "<", "%3C"),
"=", "%3D"), ">", "%3E"), "?", "%3F"), "@", "%40"), "[", "%5B"), "", "%5C"), "]", "%5D"), "_", "%5F"), "~", "%7E"),
CHAR(10), "%0A"), CHAR(13), "%0A")