excel vbaハイパーリンクSubAddressを削除する方法を教えて下さい。

'(例)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件

ベストアンサー

目的がよく分かりませんが、タイトルの「SubAddressを削除する方法」と
本文の「セル毎に判別する方法を教えて下さい」を元に推測するに、
Hyperlinks.Countで判別する方法などはいかがでしょうか。

VBA
1'サンプル(抜粋)
2    For i = 1 To maxrow
3        For j = 1 To maxcol
4            With Cells(i, j)
5                If .Hyperlinks.Count > 0 Then
6                    If .Hyperlinks(1).SubAddress <> "" Then
7                        .Hyperlinks(1).SubAddress = ""
8                    End If
9                End If
10            End With
11        Next
12    Next