excel VBA 批量获取文件中使用的超链接

yuan1987

在excel 中要建立“统计表”tab；
Sub 查找主菜单()
    Dim Irow As Long
    Dim MaxRows As Long
    Dim Icol As Integer
    Dim MaxCols As Long
    Dim MyVar
    Dim i As Integer, j As Integer
    j = 1
   
    For i = 1 To ActiveWorkbook.Worksheets.Count
    MaxRows = Sheets(i).UsedRange.Row + Sheets(i).UsedRange.Rows.Count - 1
    MaxCols = Sheets(i).UsedRange.Column + Sheets(i).UsedRange.Columns.Count - 1
    For Irow = 1 To MaxRows
        For Icol = 1 To MaxCols
            If Sheets(i).Cells(Irow, Icol).Hyperlinks.Count > 0 Then
            Sheets("统计表").Cells(j, 1) = Sheets(i).Name & Sheets(i).Cells(Irow, Icol).Address
             Sheets("统计表").Cells(j, 2) = Sheets(i).Cells(Irow, Icol).Hyperlinks(1).Address
            j = j + 1
            End If
        Next Icol
    Next Irow
   
    Next
End Sub

zjcoolbb

：P  看看~学习学习！~

haryzbs

学习了