Как да изтрия празни колони със заглавка в Excel?
Ако имате голям работен лист, който съдържа множество колони, но някои от колоните съдържат само заглавка, и сега искате да изтриете тези празни колони, които имат само заглавка, за да получите следната показана екранна снимка. Това може ли да се реши в Excel бързо и лесно?
Изтрийте празни колони със заглавка с помощта на VBA код
Изтрийте множество празни колони в диапазон / работен лист / работна книга с Kutools за Excel
Изтрийте празни колони със заглавка с помощта на VBA код
В Excel няма директен метод за справяне с тази задача, освен да ги изтриете един по един ръчно, но тук мога да ви представя код, моля, направете следното:
1. Задръжте надолу ALT + F11 ключове, след това отваря Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в Модули Window.
VBA код: Изтриване на празни колони със заглавка:
Sub Macro1()
'updateby Extendoffice
Dim xEndCol As Long
Dim I As Long
Dim xDel As Boolean
On Error Resume Next
xEndCol = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
If xEndCol = 0 Then
MsgBox "There is no data on """ & ActiveSheet.Name & """ .", vbExclamation, "Kutools for Excel"
Exit Sub
End If
Application.ScreenUpdating = False
For I = xEndCol To 1 Step -1
If Application.WorksheetFunction.CountA(Columns(I)) <= 1 Then
Columns(I).Delete
xDel = True
End If
Next
If xDel Then
MsgBox "All blank and column(s) with only a header row have now been deleted.", vbInformation, "Kutools for Excel"
Else
MsgBox "There are no Columns to delete as each one has more data (rows) than just a header.", vbExclamation, "Kutools for Excel"
End If
Application.ScreenUpdating = True
End Sub
3. След това натиснете F5 ключ, за да изпълните този код, и ще се появи поле за подкана, за да ви напомни, че празните колони със заглавка ще бъдат изтрити, вижте екранна снимка:
4, И после щракнете върху OK всички празни колони само със заглавка в текущия работен лист се изтриват наведнъж.
Забележка: Ако има празни колони, те също ще бъдат изтрити.
Изтрийте множество празни колони в диапазон / работен лист / работна книга с Kutools за Excel
Понякога просто трябва да изтриете празните колони, the Kutools за ExcelЕ Изтриване на скрити (видими) редове и колони помощната програма може да ви помогне да завършите тази задача с лекота.
Kutools за Excel : с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. |
След инсталиране Kutools за Excel, моля, направете следното:
1. Изберете диапазона от колони, който включва празните колони, които трябва да бъдат изтрити.
2, След това кликнете Kutools > Изтрий > Изтриване на скрити (видими) редове и колони, вижте екранна снимка:
3. В Изтриване на скрити (видими) редове и колони диалоговия прозорец, можете да изберете обхвата на изтриване от падащото меню Търсене, както е необходимо, изберете Колони от Изтриване на типа раздел и след това изберете Празни колони от Детайлен тип раздел, вижте екранна снимка:
4, След това кликнете Ok и само празните колони се изтриват наведнъж. Вижте екранна снимка:
Съвети: С тази мощна функция можете също да изтриете празни редове, видими колони или редове, скрити колони или редове, както ви е необходимо.
Щракнете върху Безплатно изтегляне на Kutools за Excel сега!
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!