如何用VBA代码批量给B列,C列添加超链接？

ActiveSheet.Hyperlinks.Add Anchor:=Selection, _

Address:=Selection.Value, _

TextToDisplay:=Selection.Value

这是一个单元格的，循环作用于整体即可。

标签实现超链接，如：

Sheet1.Select

Range("A1").Select

Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

单元格实现超链接，如：

Sheet1.Range("A1") = "http://www.nkmyjy.com"

Sheet1.Select

Range("A1").Select

Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

图片超链接，如：

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _

    ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ 

    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long ) As Long

Private Sub Image1_Click()

    ShellExecute Application.hwnd, "open", "D:\1.jpg", vbNullString, vbNullString, 1

End Sub

---