エクセルVBAで指定範囲内のセルの値「0」を全て空欄に置き換える方法

エクセル検索

HOME	UserForm	印刷	画面	ファイル	図形
日付・時刻	データ	セル	色	関数	VBA関数

エクセルで表を扱う時に数式エラーを防ぐ為に、空欄の代わりにIFERROR関数などで数字の「0」で代用していることありませんか？

この代用している値を一瞬で空欄にできる技があるのでご紹介します。

Replaceメソッドで置き換え

Replaceメソッドを使うと、指定したセル範囲内の中から条件に当てはまるセルの文字列を置き換えることができます。

VBAを使って文字や数字を置き換えるReplaceの基本的な使い方を表にしてみました。

ここではユーザーフォームに配置したコマンドボタンに、セルA1～B10の範囲内で指定して、完全一致する半角整数字の「0」を探して見つけたら「空欄」に置き換えるコードをご紹介します。

VBAコード

Private Sub CommandButton1_Click()
With Range(“A1:B10”)
.Replace What:=”0″, Replacement:=””, LookAt:=xlWhole
End With
End Sub

解説

波乗りアヒル

ちなみにWithステートメントを使用しているので、2つ目の検索をするならば、End Withの上に記載すれば、複数置き換えも可能になりますよ。

よかったらシェアしてね！