摘要： 如果Excel表格单元格中包含有许多用文本形式显示的超链接，如“给我发邮件”、“访问我的网站”等，要逐一查看所有超链接的地址，用手工的方法显得太繁琐，我们可以用自定义函数来批量提取这些超链接中的地址，将下列代码插入到标准模块中：
Function GetURL(rng As Range) As String
On Error Resume Next
GetURL = rng.Hyperlinks(1).Address
End Function
使用方法是在单元格中输入公式，假如单元格D6中含有超链接：
避免excel工作表函数在VBA中产生运行时错误
大家知道大多数的Excel工作表函数可以用在VBA中，通过下面的方法来调用，例如对A1:A10单元格求和： Sub Sum1()MsgBox WorksheetFunction.Sum(Sheet1.Range("A1:A10"))End Sub 或：Sub Sum2()MsgBox Applica
=geturl(D6)
还可以使用下面的代码将工作表中的所有超链接地址全部显示出来，运行代码前先备份工作簿，因为它会在含有超链接的单元格的右侧显示其地址，有可能会破坏工作表结构。
Sub ExtractHL()
Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0, 1).Value = HL.Address
Next
End Sub
excel将工作表按笔画或拼音顺序排序
Excel中没有内置工作表排序的命令或方法，我们可以用VBA来实现工作表排序。下面的VBA代码可以将工作表按其名称的拼音或笔画的顺序来排序，同时还可以指定升序或降序。 Sub SortWorksheets()Dim SortOrd, SortM, ActiveSht As StringDim NumSht()Activ
