This should work: Dim r As Long, h As Hyperlink For r = 1 To Range("AD1").End(xlDown).Row For Each h In ActiveSheet.Hyperlinks If Cells(r, ...
確定! 回上一頁