Как да изтрия празни колони чрез VBA в Microsoft Excel?

В тази статия ще научим как да изтриете празни колони чрез VBA в Microsoft Excel. Ще изтрием колоните, които са напълно празни, това означава, че ако няма данни в цялата колона, тези данни.

Да вземем пример и да разберем:

Имаме данни в диапазон A1: I21, в който колона A съдържа Име, колона B е празна, колона C съдържа Уличен адрес, колона D Град, колона E е празна, колона F съдържа регион, колона G е празна, колона H съдържа държава име, а колона I съдържа телефонен номер.

Искаме да изтрием празните колони от данните, следваме посочените по -долу стъпки и код:

Отворете страницата 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

Код Обяснение:

Първо дефинирахме всички променливи. След това диапазонът от празни колони, след това сме използвали „Do till loop“, за да изтрием празните колони. И сега дефинирахме празната колона и командата за изтриване.