Excel VBA：将单元格变成超链接并忽略空值

我有以下的VBA脚本：

Sub ConvertToHyperlinks() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) For Each Rng In WorkRng Application.ActiveSheet.Hyperlinks.Add Rng, "http://" & Rng.Value Next End Sub 

它将选中的单元格转换为可以单击的超级链接。 例如，如果单元格的值为“example.com” ，则会将其转换为“ http://example.com ”

它工作正常，唯一的是，如果单元格是空的，它仍然会变成一个超链接的值为“http：//”

我怎样才能让它忽略具有空值的单元格，而不是将“http：//”添加到它们？

Answer 1

就像这样（你的WorkRng只需要1行）

 Sub ConvertToHyperlinks() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.InputBox("Range", xTitleId, Selection.Address, Type:=8) For Each Rng In WorkRng If Len(Rng.Value) > 0 Then ActiveSheet.Hyperlinks.Add Rng, "http://" & Rng.Value Next End Sub