ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), Address:="http://www.baidu.com/" & Range("A1")
录制一个宏，然后稍加修改就好。
