freeffly

很好用的代碼
我自己將A1修改成如下面代碼
根據後面資料的位置去判斷
可能每個人的資料不一樣
再自行修改
" & Sh.Range("iv3").End(xlToLeft).Offset(, 1).Address & "

1. Dim A As Range, Sh As Worksheet
   
2. Columns("A:A").Clear
   
3. r = 1
   
4. For Each Sh In Sheets
   
5.    If Sh.Name <> Me.Name Then
   
6.       Set A = Cells(r, 1)
   
7.            Me.Hyperlinks.Add Anchor:=A, Address:="", SubAddress:= _
   
8.         "'" & Sh.Name & "'!" & Sh.Range("iv3").End(xlToLeft).Offset(, 1).Address & "", TextToDisplay:=Sh.Name
   
9.        Sh.Hyperlinks.Add Anchor:=Sh.Range("iv3").End(xlToLeft).Offset(, 1), Address:="", SubAddress:= _
   
10.         "'目錄'!A1", TextToDisplay:="返回目錄"
    
11.        r = r + 1
    
12.    End If
    
13. Next

複製代碼