プロが教えるわが家の防犯対策術！

急いでいます！

ExcelのVBA

解決済

  • 質問者：ぽち101
  • 質問日時：
  • 回答数：1件

A～J列の1～247行のセルで数字（半角）を含むセルの値を消去したいです。
すぐ動かせる状態のVBAのコードを教えてください。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

A 回答 (1件)

No.1ベストアンサー

こんばんは。



下記で良いか分かりませんが、保存したデータで実施してみて下さい。

Option Explicit

Sub 半角数字のセルをクリア()
Dim myRng As Range

For Each myRng In Range("A1:J247")
If myRng.Value Like "*[1234567890]*" Then
myRng.ClearContents
End If
Next
End Sub
    • good
    • 1
    • 件
通報する
この回答へのお礼

助かりました

完璧でした！
急いでいたので助かりました。
どうもありがとうございました。

通報する
お礼日時：2021/12/13 22:31

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

Q質問する（無料）

関連するカテゴリからQ&Aを探す

ページトップページトップ

Q質問する（無料）

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

おすすめ情報