この記事では、MicrosoftExcelのVBAを使用して空の列を削除する方法について学習します。完全に空の列を削除します。つまり、列全体にデータがない場合は、そのデータを削除します。

例を挙げて理解しましょう:

範囲A1:I21のデータがあり、列Aには名前、列Bは空白、列Cには住所、列D市、列Eは空白、列Fには地域、列Gは空白、列Hには国が含まれています名前と列Iには電話番号が含まれています。

image 1

データから空白の列を削除したいので、以下の手順とコードに従います。VBEページを開いてキーAlt + F11を押します。モジュールを挿入してコードを記述します*以下のコードを記述します:

Sub Delete_Columns()

Dim C As Integer

C = ActiveSheet.Cells.SpecialCells(xlLastCell).Column

Do Until C = 0

If WorksheetFunction.CountA(Columns(C)) = 0 Then

Columns(C).Delete

End If

C = C - 1

Loop

End Sub

コードの説明:

まず、すべての変数を定義しました。次に、空白の列の範囲、次に「ループまで実行」を使用して空白の列を削除しました。

これで、空白の列と削除コマンドを定義しました。

image 2

コードを実行するには、キーボードのキーF5を押します。*空白の列はすべて削除されます。

image 3

このようにして、MicrosoftExcelのVBAを介して空の列を削除できます。

image 48

私たちのブログが気に入ったら、Facebookで友達と共有してください。また、TwitterやFacebookでフォローすることもできます。

_私たちはあなたからの連絡をお待ちしております。私たちの仕事を改善、補完、または革新し、あなたのためにそれをより良くする方法を教えてください。 [email protected]_までご連絡ください