Съдържание
В урока ще научите как да премахвате празни колони в Excel с помощта на макрос, формула и кликване върху бутон.
Колкото и тривиално да звучи, изтриването на празни колони в Excel не е нещо, което може да се осъществи само с едно щракване на мишката. Не може да се направи и с две щраквания. Перспективата да прегледате всички колони в работния си лист и да премахнете празните ръчно определено е нещо, което бихте искали да избегнете. За щастие Microsoft Excel предоставя много различни функции и като използвате тезифункции по творчески начин можете да се справите с почти всяка задача!
Бърз начин за изтриване на празни колони, които никога не трябва да използвате
Когато става въпрос за премахване на празни полета в Excel (независимо дали става въпрос за празни клетки, редове или колони), много онлайн ресурси разчитат на Отидете на Special > Заготовки команда. Никога не го правете в работните си листове!
Този метод ( F5 > Специален... > Заготовки ) намира и избира всички празни клетки в диапазона:
Ако сега щракнете с десния бутон на мишката върху избраните клетки и изберете Изтриване на > Цялата колона , всички колони, които съдържат поне една празна клетка Ако сте направили това по невнимание, натиснете Ctrl + Z, за да върнете всичко обратно.
След като вече знаете как да изтриете празни колони в Excel, нека видим как да го направите правилно.
Как да премахнете празните колони в Excel с VBA
Опитните потребители на Excel знаят това правило: за да не губите часове, правейки нещо ръчно, инвестирайте няколко минути в написването на макрос, който ще го направи вместо вас автоматично.
Макросът на VBA по-долу премахва всички празни колони в избрания диапазон. При това той прави това безопасно - изтриват се само абсолютно празни колони. Ако колоната съдържа стойност от една клетка, дори празен низ, върнат от някоя формула, тази колона ще остане непокътната.
Макрос на Excel: премахване на празни колони от лист на Excel Public Sub DeleteEmptyColumns() Dim SourceRange As Range Dim EntireColumn As Range On Error Resume Next Set SourceRange = Application.InputBox( _ "Select a range:" , "Delete Empty Columns" , _ Application.Selection.Address, Type :=8) If Not (SourceRange Is Nothing ) Then Application.ScreenUpdating = False For i = SourceRange.Columns.Count To 1Стъпка -1 Set EntireColumn = SourceRange.Cells(1, i).EntireColumn If Application.WorksheetFunction.CountA(EntireColumn) = 0 Then EntireColumn.Delete End If Next Application.ScreenUpdating = True End If End SubКак да използвате макроса Изтриване на празни колони
Ето стъпките за добавяне на макроса в Excel:
- Натиснете Alt + F11, за да отворите редактора на Visual Basic.
- В лентата с менюта щракнете върху Вмъкване на > Модул .
- Поставете горния код в прозореца Код.
- Натиснете F5, за да стартирате макроса.
- Когато се появи изскачащият диалогов прозорец, преминете към интересуващия ви работен лист, изберете желания диапазон и щракнете върху OK:
Ако не искате да добавяте макрос към работния си лист, можете да го стартирате от нашата примерна работна книга:
- Изтеглете нашата примерна работна книга за премахване на празни колони в Excel, отворете я и разрешете съдържанието, ако бъдете подканени.
- Отворете собствена работна книга или преминете към вече отворената.
- В работната си книга натиснете Alt + F8 , изберете DeleteEmptyColumns и щракнете върху Изпълнявайте .
- В изскачащия диалогов прозорец изберете обхвата и щракнете върху OK .
Така или иначе, всички празни колони в избрания диапазон ще бъдат изхвърлени:
Идентифициране и изтриване на празни колони в Excel с помощта на формула
Горният макрос премахва празните колони бързо и безшумно. Но ако сте от хората, които държат всичко под контрол (като мен :), може да искате да видите визуално колоните, които ще бъдат премахнати. В този пример първо ще идентифицираме празните колони с помощта на формула, за да можете бързо да ги прегледате, а след това да премахнете всички или някои от тях.
Забележка. Преди да изтриете нещо за постоянно, особено чрез използване на непозната техника, силно ви съветвам да направите резервно копие на работната ви книга, за да се подсигурите, ако нещо се обърка.
Като имате резервно копие на сигурно място, изпълнете следните стъпки:
Стъпка 1. Вмъкване на нов ред
Добавете нов ред в горната част на таблицата. За целта щракнете с десния бутон на мишката върху заглавието на първия ред и щракнете върху Вмъкване на . Не се притеснявайте, че ще промените структурата/подредбата на данните си - можете да изтриете този ред по-късно.
Стъпка 2. Идентифициране на празни колони
В най-лявата клетка на новодобавения ред въведете следната формула:
=COUNTA(A2:A1048576)=0
И след това копирайте формулата в другите колони, като плъзнете дръжката за запълване.
Логиката на формулата е много проста: COUNTA проверява броя на празните клетки в колоната, от ред 2 до ред 1048576, което е максимален брой редове в Excel 2019 - 2007. Сравнявате този брой с нула и в резултат имате TRUE в празните колони и FALSE в колоните, които съдържат поне една непразна клетка. Поради използването на относителни препратки към клетките формулата правилно се коригира за всяка колонакъдето се копира.
В случай че създавате работния лист за някой друг, може да искате да маркирате колоните по по-смислен начин. Няма проблем, това може лесно да се направи с помощта на оператор IF, подобен на този:
=IF(COUNTA(A2:A1048576)=0, "Blank", "Not blank")
Сега формулата изрично посочва кои колони са празни и кои не:
Съвет. В сравнение с макроса този метод ви дава по-голяма гъвкавост по отношение на това кои колони да се считат за празни. В този пример проверяваме цялата таблица, включително заглавния ред. Това означава, че ако дадена колона съдържа само заглавие, такава колона не се счита за празна и не се изтрива. Ако искате да проверявате само редове с данни игнориране на заглавията на колоните , премахнете заглавния(те) ред(и) от целевия диапазон (A3:A1048576). В резултат на това колона, която има заглавие и никакви други данни в нея, ще се счита за празна и ще подлежи на изтриване. Също така можете да ограничите диапазона до последния използван ред, който в нашия случай ще бъде A11.
Стъпка 3. Премахване на празни колони
След като разполагате с разумен брой колони, можете просто да изберете тези, които имат надпис "Blank" (за да изберете няколко колони, задръжте клавиша Ctrl, докато щраквате върху буквите на колоните). След това щракнете с десния бутон на мишката върху всяка избрана колона и изберете Изтриване на от контекстното меню:
Ако в работния ви лист има десетки или стотици колони, има смисъл да изведете всички празни колони за преглед. За целта направете следното:
- Изберете горния ред с формули, отидете в Данни tab> Сортиране и филтриране и щракнете върху Сортиране бутон.
- В появилия се диалогов прозорец с предупреждение изберете Разширяване на избора и щракнете върху Сортиране...
- Това ще отвори Сортиране диалогов прозорец, в който щракнете върху Опции... бутон, изберете Подредете от ляво на дясно, и щракнете върху OK .
- Конфигурирайте само едно ниво на сортиране, както е показано по-долу, и щракнете върху OK:
- Сортиране по: ред 1
- Сортиране по: Стойности на клетките
- Поръчка: от А до Я
В резултат на това празните колони ще бъдат преместени в лявата част на работния лист:
- Изберете всички празни колони - щракнете върху буквата на първата колона, натиснете Shift и след това щракнете върху буквата на последната празна колона.
- Кликнете с десния бутон върху избраните колони и изберете Изтриване на от изскачащото меню.
Готово! Отървали сте се от празните колони и вече нищо не ви пречи да изтриете горния ред с формулите.
Най-бързият начин за премахване на празни колони в Excel
В началото на този урок написах, че няма начин за изтриване на празни колони в Excel с едно щракване на мишката. Всъщност това не е точно така. Трябваше да кажа, че няма вграден начин. Потребителите на нашия Ultimate Suite могат да премахват празни колони в Excel буквално с няколко щраквания на мишката :)
В целевия работен лист преминете към Инструменти на Ablebits щракнете върху Изтриване на празни полета и изберете Празни колони :
За да се уверите, че това не е случайно щракване с мишката, добавката ще ви помоли да потвърдите, че наистина искате да премахнете празните колони от този работен лист:
Кликнете върху OK , и за миг всички празни колони изчезват!
Подобно на макроса, разгледан по-горе, този инструмент изтрива само онези колони, които са абсолютно празен . Запазват се колоните, които имат всяка единична стойност, включително заглавията.
Изтриване на празните полета е само една от десетките прекрасни функции, които могат да улеснят живота ви като потребител на Excel. За да научите повече, можете да изтеглите пробна версия на нашия Ultimate Suite for Excel.
Празните колони не се изтриват! Защо?
Издание : Изпробвали сте всички горепосочени методи, но една или повече празни колони са заседнали в работния ви лист. Защо?
Най-вероятно защото тези колони не са наистина празни. Много различни символи, невидими за човешкото око, могат да се крият незабелязано във вашите електронни таблици в Excel, особено ако сте импортирали информация от външен източник. Това може да бъде обикновен празен низ или символ за интервал, нечленоразделен интервал или някакъв друг непечатен символ.
За да откриете виновника, изберете първата клетка в проблемната колона и натиснете Ctrl + стрелка надолу . Например колона C в снимката по-долу не е празна поради един символ интервал в C6:
Щракнете два пъти върху клетката, за да видите какво всъщност има в нея, или просто натиснете клавиша Delete, за да се отървете от неизвестното нещо. И след това повторете горния процес, за да разберете дали в тази колона има други невидими неща. Може също така да искате да изчистите данните си, като премахнете водещите, завършващите и непрекъсващите интервали.
Благодаря ви, че прочетохте, и се надявам да се видим в нашия блог следващата седмица!
