色がついてるセルのみ値をクリアしたいです。 A8からH35の範囲で色がついてるセルのみクリアする マ

色がついてるセルのみ値をクリアしたいです。
A8からH35の範囲で色がついてるセルのみクリアする
マクロを作りたいと思ってます。色は黄色です。
色がついてないセルはそのままにしたいです。
参考までにコードを書いていただけると助かります。
よろしくお願いします。

No.1 ベストアンサー 回答者： fujillin 回答日時： 2021/04/13 11:40

こんにちは

＞色がついてるセルのみクリアする
文字の色なのか背景色なのかによって異なります。
また、一口に「黄色」といっても黄色っぽく見える色の種類は多数あります。

以下は、背景に色がついている（黄色に限らない）セルの値をクリアする一例です。
ご参考までに。

Sub sample_12307124()
For Each c In Range("A8:H35")
If c.DisplayFormat.Interior.Pattern <> xlNone Then c.ClearContents
Next c
End Sub

この回答へのお礼

ありがとうございます。
背景色なのですが結合されているセルは
できないみたいです。その場合どうしたらいいでしょうか

お礼日時：2021/04/13 12:59

No.3 回答者： ママチャリ 回答日時： 2021/04/13 20:54

こんなのは、どうでしょう？

Sub sample()
With Application.FindFormat
.Clear
.Interior.Color = 65535
End With
Cells.Replace What:="*", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=False
End Sub

この回答へのお礼

ありがとうございます

お礼日時：2021/04/14 13:29

No.2 回答者： fujillin 回答日時： 2021/04/13 13:27

No1です

＞結合されているセルはできないみたいです。
はい。できません。

結合セルがあるような場合は、.MergeArea.ClearContents としてください。

この回答へのお礼

ありがとうございます、
出来ました

お礼日時：2021/04/14 13:29