В тази статия ще научим как да изтриете празни колони чрез 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“, за да изтрием празните колони. И сега дефинирахме празната колона и командата за изтриване.
За да стартирате кода, натиснете клавиша F5 на клавиатурата си,
- Всички празни колони ще бъдат изтрити.
По този начин можем да изтрием празните колони чрез VBA в Microsoft Excel.
Ако ви харесаха нашите блогове, споделете го с приятелите си във Facebook. Можете също така да ни следвате в Twitter и Facebook.
Ще се радваме да чуем от вас, уведомете ни как можем да подобрим, допълним или обновим работата си и да я подобрим. Пишете ни на имейл сайта
