【エクセルVBA】複数の空白セルに一気に書き込む

投稿者: | 2021年7月27日
excelアイコン

エクセルバージョン

マイクロソフト365

 

今回はVBAで複数の空白セルに文字などを一括で入力する方法のご紹介です(^^♪

慣れれば簡単なのでサクッと解説しますね~。

それではいってみましょう!

 

1列の範囲の複数空白セルに一気に書き込む

A列のA1からA15セルを指定範囲して×印を一気に書き込みます(^-^)

A列の空白セル】   【完成後

1列のみの空白      A列指定範囲の空白セル書込み

【VBAサンプル】

解説

変数を宣言します。

A列の最終行番号を取得します。

A列のデータ範囲を可変範囲指定したセル範囲に、空白セルが選択できるジャンプ機能のRangeオブジェクトのメンバーであるSpecialCellsメソッドの引数に空白(xlCellTypeBlanks)を指定して空白セルのみを選択します。

RangeオブジェクトSpecialCellsメソッド

選択してるセルに一気に書込みして完成です\(^^)/

 

複数バラバラの空白セルに一気に書き込む

下記のようなバラバラの空白セルに×印を一気に書き込みます(*^^)v

複数空白データ】      【完成後

複数バラバラ空白1   複数バラバラ空白セルに書込み

【VBAサンプル】

解説

WorksheetオブジェクトのメンバーのUsedRangeプロパティでデータ領域を範囲指定して、空白セルを選択できるジャンプ機能のRangeオブジェクトのSpecialCellsメソッドの引数に空白(xlCellTypeBlanks)を指定して空白セルのみを選択します。

WorkSheetオブジェクトUsedRangeプロパティ

選択しているセルに一気に書き込みして完成です(^o^)o

 

まとめ

こういった一気に書込みなんかも、範囲選択がきちんとできるかが重要になってきます(´∀`*)

以上です。