「教えて!ピックアップ」リリース!

いつもお世話になります。
OSはwin11,エクセルはOffice365です・

下記に参考のコードがあります。
このコードではハイパーリンクは削除はされます。
がしかしテキストは残ります。

このような内容を下記のコードに追加しましたが
うまくいきません。
Range("M1:M17").Select
Selection.Clear
Range("A1").Select

ご指導を仰ぎたいのはハイパーリンクとテキストの両方が削除されるようにしたいです。

参考
Sub リンク削除()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Hyperlinks.Delete
Next
End Sub

質問者からの補足コメント

  • どう思う?

    ありがとうございます。
    折角ご指導をいただいたのですが、
     ハイパーリンクは解除
     テキストは未解除
    です。

    再度ご指導いただけませんか。

    No.1の回答に寄せられた補足コメントです。 補足日時:2022/11/10 10:35

A 回答 (2件)

ハイパーリンクの場所は決まっていない


ということだったのかな。

Sub リンク削除()
Dim ws As Worksheet
Dim hp As Hyperlink
For Each ws In Worksheets
  For Each hp In ws.Hyperlinks
    hp.Parent.Clear
  Next
Next
End Sub
    • good
    • 0
この回答へのお礼

ありがとうございます。
お陰様で上手くできました。

お礼日時:2022/11/10 15:20

Sub リンク削除()


Dim ws As Worksheet
For Each ws In Worksheets
  ws.Hyperlinks.Delete
  ws.Range("M1:M17").Clear
Next
End Sub

とか。
この回答への補足あり
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング