问Excel脚本超链接提取

EN

Sub getHyperlinks()
'used to keep track of where we are at when writing to the second sheet
Dim iWriteRow As Long
'used to hold how many columns to look through
Dim numberOfCols As Long
numberOfCols = 2
'set initial position
iWriteRow = 1

'variable used in looping through the hyperlinks
Dim h As Hyperlink
'loop through all hyper links on the sheet
For i = 1 To numberOfCols
    For Each h In ActiveWorkbook.Sheets(1).Columns(i).Hyperlinks
        'write them to the next sheet
        ActiveWorkbook.Sheets(2).Cells(iWriteRow, i).Value = h.Address
        'add 1 to our counter
        iWriteRow = iWriteRow + 1
    Next
    iWriteRow = 1
Next i
End Sub