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)