'(例)1行1列目にハイパーリンクでリンク先:このドキュメント内>セルを入力して下さい。「a1」(入力してある)
`セル毎に判別する方法を教えて下さい。よろしくお願いします。
Sub ハイパーリンクSubAddressを削除実行用()
With Range("A1").SpecialCells(xlLastCell)
maxrow = .Row
maxcol = .Column
End With
'
For i = 1 To maxrow
For j = 1 To maxcol
With Cells(i, j)
aa = .Hyperlinks(1).SubAddress
End With
If aa = "" Then
Else
Cells(i, j).ClearHyperlinks
End If
Next
Next
End Sub
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2016/09/14 12:37