批量添加超链接 Sub createHyperLinkForSeletion() ' '将选中单元格创建超链接，链接到单元格内容中名称的表 ' For Each cell In Selection ActiveSheet.Hyperlinks.Add Anchor:=cell, Address:="", SubAddress:= _ "'" & cell.Value & "'!A1", TextToDisplay:=cell.Value Next cell End Sub

因为工作需要，整理越南资料时，需要将越南语中的音调去掉，变成英文字母，在网上找到的Excel VBA的方式，整理成Excel 宏文件模板。 越南音