#在超链接中防止完整超链接的副本
我已经制作了一个macros,通过超链接从一列复制到另一个。
macros工作正常,但是超链接在它们中间包含'#',所以可以说:
https://website.com/nu#somethingsomething
这使macros观副本只是它的第一部分,即:
https://website.com/nu
任何想法如何使Excel忽略“#”(如果可能的话)并复制超链接的整个值 ?
VBA代码:
Sub MilestonesHyperlink() For i = 2 To 62 'Number of rows If Range("B" & i).Value <> "" And Range("A" & i).Value <> "" Then 'Copy from column B to A Dim newLink As String If Range("B" & i).Hyperlinks.Count = 1 Then newLink = Range("B" & i).Hyperlinks(1).Address Range("A" & i).Hyperlinks.Add anchor:=Range("A" & i), Address:=Range("A" & i) Range("A" & i).Hyperlinks(1).Address = newLink End If End If Next i End Sub
尝试用以下newlink
replace新newlink
:
newLink = Range("B" & i).Hyperlinks(1).Address + "#" + Range("B" & i).Hyperlinks(1).SubAddress