2016-06-07 107 views
2

我已經制作了一個宏,通過超鏈接從一列複製到另一個。#在超鏈接防止完整超鏈接的副本

宏的作品就好了但是超鏈接包含在他們中間「#」所以可以說:

https://website.com/nu#somethingsomething 

這使得宏觀副本只是它的第一部分,即:

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 

回答

1

嘗試更換newlink有:

newLink = Range("B" & i).Hyperlinks(1).Address + "#" + Range("B" & i).Hyperlinks(1).SubAddress