[求助]怎样进行批量超级链接

林夕

方法如下：

转自：2007-4-16 22:26:02  Long_III斑竹回复一名网友的帖子

可以，你是想1－100都有a1的超级链接是吧

手工操作：

1、把a列的数据复制到B列

2、复制a1单元格，直接copy到a2－a100中，这样每个单元格都有超级链接

3、复制b1－b100，选中a1，鼠标右键，选择性粘贴，选公式或值都可以

OK

与菜友们共享...

aichong

需要先将A1单元格变成超级链接。

楼上的好像不行！链接的地址不对。

[此贴子已经被作者于2007-12-5 21:58:16编辑过]

hnzlj

谢谢，学到了不少东西、

ning84

XUZHANCHENG 发表于 2007-12-5 12:40
可以先做一个网页的链接，然后用格式刷刷一下也可以。或者Sub 网页链接()hangshu = Range("a1").CurrentReg ...

学习.Hyperlinks.Add Anchor:=Cells(i, 1), Address:= _
        a, TextToDisplay:=a

1. Private Sub del()
   
2.    Dim Str
   
3.    AddArr = Array("兰州", "珠海", "武汉", "北京", "抚远", "漠河", "三沙", "喀什")
   
4.    Dim Sht As Worksheet, Rng As Range
   
5.        For jj = 0 To UBound(AddArr)
   
6.            Set Sht = Sheets(AddArr(jj))
   
7.            Nn = Sht.Cells(56556, 1).End(xlUp).Row
   
8.            Set Rng = Sht.Range("A2:A" & Nn)
   
9.            For ii = 1 To Rng.Rows.Count
   
10.                 If InStr(Rng(ii, 1), ".html") > 0 Then
    
11.                      
    
12.                       Str = Rng(ii, 1)
    
13.                       Rng(ii, 1).Hyperlinks.Add Anchor:=Rng(ii, 1), Address:=Str, TextToDisplay:=Str
    
14.                 End If
    
15.            Next ii
    
16.            
    
17.        Next jj
    
18. End Sub
    

复制代码