エクセルの質問です。

URLえんこ関数

http://www.vector.co.jp/soft/winnt/net/se369699.html

このようなエンコード関数を使ってやればhttp://以下の文字列は作れます。

B1に以下の式を入れてA1に検索文字列を入力するとOKです。

="http://www.google.co.jp/search?hl=ja&rls=GGLF%2CGGLF%3A2007-04%2CGGLF%3Aja&q="&URL_Enc(A1)&"&lr="

あとは必要なだけB列にコピーすればA列の文字列で検索URLを作ることができます。

ただ、これをクリックしてブラウザを起動するのはもうひとひねり必要ですね。

ExcelVBAで、URLエンコーディングをする方法っていうか、JavaScriptを使う方法 - ウィリアムのいたずらの開発日記

でも実現できます。

1.ユーザー定義関数を作成する

Function EncodeURI(セル)
    Set sc = CreateObject("ScriptControl")
    sc.Language = "Jscript"
    Set js = sc.CodeObject
    EncodeURI = "http://www.google.co.jp/search?hl=ja&rls=GGLF%2CGGLF%3A2007-04%2CGGLF%3Aja&q=" & js.encodeURIComponent(セル.Text) & "&lr="
End Function

2.B1列に =EncodeURI(A1) と入力する。

※B2列以降はB1列をコピーして下さい。