excelvba求一個(gè)簡(jiǎn)單的fornext語(yǔ)句代碼活動(dòng)sheet的A2插入一個(gè)超級(jí)連接到本工作簿sheet(2)的A1活動(dòng)sheet的A3插入一個(gè)超級(jí)連接到本工作簿sheet(3)的A1活動(dòng)sheet的A4插入一個(gè)超級(jí)連接到本... excel vba 求一個(gè)簡(jiǎn)單的for next語(yǔ)句代碼活動(dòng)sheet的A2插入一個(gè)超級(jí)連接到本工作簿sheet(2)的A1

活動(dòng)sheet的A3插入一個(gè)超級(jí)連接到本工作簿sheet(3)的A1

活動(dòng)sheet的A4插入一個(gè)超級(jí)連接到本工作簿sheet(4)的A1

以此類(lèi)推 展開(kāi)

Sub 更新所有表的超級(jí)鏈接()
  Dim c As Range, h As String, i As Long
  For i=2 to 1000
      set c = Cells(i, 1) 'A2:A1000
    If c.Value <> "" Then
        h = "'2'!A" & (i-1)
      If c.Hyperlinks.Count > 0 Then
          c.Hyperlinks(1).SubAddress = h
      Else
          c.Hyperlinks.Add Anchor:=c, Address:="", SubAddress:=h, TextToDisplay:=c.Value
      End If
    End If
  Next c
End Sub