Excel中的Visual Basic更改單元格以超鏈接通過添加URL

Question

的部分在列BI有部分環節，如B003KIU14O

我試圖做到的，是把它轉換爲超鏈接，並住在同一列B.

我的靜態（鏈接的第一部分）的鏈接是http://www.amazon.com/gp/product/

完整的鏈接看起來是這樣的：http://www.amazon.com/gp/product/B003KIU14O

如果可能，我很想有在B列的視覺值顯示B003KI U14O和具有超鏈接

Answer 1

光要轉換和運行這個小宏單元：

Sub dural() 
    Dim r As Range, s As String, DQ As String 
    DQ = Chr(34) 
    s = "http://www.amazon.com/gp/product/" 
    For Each r In Selection 
     v = r.Value 
     r.Formula = "=HYPERLINK(" & DQ & s & v & DQ & "," & DQ & v & DQ & ")" 
    Next r 
End Sub 

編輯＃1：

要避免手動選擇：

Sub dural() 
    Dim r As Range, s As String, DQ As String 
    DQ = Chr(34) 
    Dim rBig As Range 
    s = "http://www.amazon.com/gp/product/" 
    Dim N As Long 
    N = Cells(Rows.Count, "B").End(xlUp).Row 
    Set rBig = Range("B1:B" & N) 
    For Each r In rBig 
     v = r.Value 
     r.Formula = "=HYPERLINK(" & DQ & s & v & DQ & "," & DQ & v & DQ & ")" 
    Next r 
End Sub 

Answer 2

我不認爲你需要Visual Basic，如果你不介意出現在相鄰單元格中的超鏈接：將下列內容放在你想要的單元格中超鏈接出現（假設你的鏈接出現在單元格B1）：

=HYPERLINK("http://www.amazon.com/gp/product/" & B1, B1) 

然後根據需要複製下來的其他值在列B

如果你想全面的超鏈接出現，只是下降的第二個參數：

=HYPERLINK("http://www.amazon.com/gp/product/" & B1)