以下は、私たちが空白のセルを削除エクセルVBAでプログラムを見ていきます。

状況：

Delete Blank Cells in Excel VBA

1.まず、我々はInteger型の2つの変数を宣言します。カウンターと私の名前1という名前の一つ。私たちは、値0を持つ変数のカウンタを初期化

Dim counter As Integer, i As Integer

counter = 0

2.次に、我々はそれが空であるか否かをセル毎にチェック（<>手段はないに等しいです）。我々は、このためのループを使用しています。空でない場合は、私たちが列Bに値を書き込むカウンタは、列Bにするたびにコピーされたセルの数のトラックを保持している私たちは、列Bに値をコピーする1.することにより、我々インクリメントカウンタプログラムのこの作品ルックス、次のように：

For i = 1 To 10

If Cells(i, 1).Value <> "" Then

Cells(counter + 1, 2).Value = Cells(i, 1).Value

counter = counter + 1

End If

Next i

これまでの結果：

Write non Empty Cells to next Column

、カラムAカラムBの値をコピーして、範囲（ “B1：B10″）を空にする：3.最後に、我々は、範囲（ “A10 A1″）を空にする。

Range("A1:A10").Value = ""

Range("A1:A10").Value = Range("B1:B10").Value

Range("B1:B10") = ""

結果：

Delete Blank Cells Result