Excel 中批量添加 URL

（记录备忘）
今天工作中有个需求， case id  要加上 URL 。

在excel里面将 将 A列 的文字加上 E列 的URL

A	B	C	D	E
caseid	case name
1234	ddddd		1234	1234
1231	sssss		1231	1231

1. Alt+F11，进入VBA编辑界面；
2. Alt+I+M，插入一个Module；
3. 在右边Module的空白编辑区域，复制粘贴下面的所有内容；
4. F5，运行该VBA命令；

Sub link()
i = 2
    Do While Range("A" & i).Cells.Text <> ""
    Range("A" & i).Select
    Worksheets("Sheet1").Hyperlinks.Add Anchor:=Selection, Address:=Range("E" & i).Cells.Text, _
    TextToDisplay:=Range("A" & i).Cells.Text
    i = i + 1
    Loop
End Sub

参考：http://zhulang158.blog.163.com/blog/static/49189427201121924156781/