マクロ A列からT列の範囲の数式と値をクリアするコード

A列からT列の範囲の数式と値をクリアするコードを教えて頂けませんか。当該の列に別なシートからコピー貼り付けすると、空白にも数式か値があるようで、マクロの実行ができません。そこで、クリアするコードを教えていただけません。当該の列にある値のデータは残したまま、データのないところをクリアにしたいのです。よろしくお願い致します。

No.2 ベストアンサー 回答者： fujillin 回答日時： 2020/09/02 15:08

こんにちは

＞空白にも数式か値があるようで、マクロの実行ができません。
どのような処理を行っているのかわかりませんが、なんだか、そちらのマクロの方で対応した方が良さそうに思いますけれど・・・
（表示が空白なら空白と解釈すればよいだけなので）
継当てに、さらに継当てをあてるようなものですから・・・


とは言え、ご質問なので、
『数式が入力されていて、表示が空白（=「""」表示）のセルをクリアしたい』ということと解釈しました。

以下でいかがでしょうか？
（対象はActiveSheetと仮定しています）

Sub Sample()
Dim c
For Each c In Intersect(ActiveSheet.UsedRange, Columns("A:T"))
　If c.HasFormula And c.Text = "" Then c.Clear
Next c
End Sub

この回答へのお礼

ありがとうございました。

お礼日時：2020/09/06 11:04

No.1 回答者： chiune 回答日時： 2020/09/02 15:06

Excelのマクロ、ってことでいいんですよね。

普通に考えると

Columns("A:T").ClearContents

でいいように思います。

この回答へのお礼

ありがとうございました。

お礼日時：2020/09/06 11:04