John的工作簿中有成千上万的URL，所有URL都在A列中。它们是各个URL的纯文本。 John希望将URL转换为活动的超链接，但是单独进行转换非常繁琐，尤其是对于许多URL而言。

与大多数Excel中的乏味一样，解决方案是使用宏进行转换。为了有效，宏将需要在选定范围内逐步遍历每个单元，并且，如果该单元不是空白，则将内容转换为超链接。以下将达到目的：

Sub URL_List()

For Each cell In Selection         If cell.Value <> "" Then             If Left(cell.Value, 7) = "http://" Then                 URL = cell.Value             Else                 URL = "http://" + cell.Value             End If             ActiveSheet.Hyperlinks.Add Anchor:=cell, _               Address:=URL, TextToDisplay:=cell.Value         End If     Next cell End Sub

宏不是万无一失的。它假定，如果一个单元格根本不包含任何内容，则它是一个有效的URL。它的作用是检查单元格的内容，如果内容未以“ http：//”文本开头，则将其添加。然后根据单元格内容创建超链接。

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（3110）适用于Microsoft Excel 2000、2002和2003。可以在Excel的功能区界面（Excel 2007及更高版本）中找到本技巧的版本：

将一系列URL转换为超链接。