VBA:将列中填充的单元格转换为超链接
我有一个SQL脚本作为Excel中的数据连接,基本上返回3列。 这3列都是超链接的文字。 这3列可以包含空/空单元格。
我find了一个VBA脚本来运行,将这些超链接文本转换成实际的超链接(就像你可以点击单元格一样,它会把你带到网页上)。
我的问题是: VBA脚本正在将空/空单元格转换为超链接(当然,无处可去,即,您单击单元格,它什么都不做)。
我的问题是:如何编辑此脚本只将非空/填充的单元格转换为超链接?
目前为止的脚本:
Sub HyperlinkConverter() For Each xCell In Range("M:O") ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=xCell.Formula Next xCell End Sub
伪脚本:
Sub HyperlinkConverter() For Each xCell In Range("M:O") **WHERE RANGE("M:O") IS NOT NULL (or) RANGE("M:O") <> ""** ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=xCell.Formula Next xCell End Sub
只要testing每个单元格:
Sub HyperlinkConverter() For Each xCell In Range("M:O") If xCell.Value <> "" Then ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=xCell.Formula End If Next xCell End Sub
编辑#1:
为了避免第一行:
Sub HyperlinkConverter() For Each xCell In Range("M:O") If xCell.Value <> "" And xCell.Row <> 1 Then ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=xCell.Formula End If Next xCell End Sub