Оқулық Excel бағдарламасындағы бос бағандарды макроспен, формуламен және түймені басу арқылы қалай жоюға болатынын үйретеді.

Қандай тривиальды көрінсе де, Excel бағдарламасында бос бағандарды жою. жай тінтуірді басу арқылы орындалатын нәрсе емес. Оны екі рет басу арқылы да жасау мүмкін емес. Жұмыс парағындағы барлық бағандарды қарап шығу және бос бағандарды қолмен жою мүмкіндігі, әрине, сіз аулақ болғыңыз келетін нәрсе. Бақытымызға орай, Microsoft Excel көптеген әртүрлі мүмкіндіктерді қамтамасыз етеді және сол мүмкіндіктерді шығармашылық жолдармен пайдалану арқылы сіз кез келген дерлік тапсырманы жеңе аласыз!

Ешқашан қолдануға болмайтын бос бағандарды жоюдың жылдам жолы. пайдалану

Excel бағдарламасындағы бос орындарды жоюға келгенде (бос ұяшықтар, жолдар немесе бағандар болсын) көптеген онлайн ресурстар Арнайыға өту > Бос орындар пәрменін таңдаңыз. Ешқашан жұмыс парақтарыңызда мұны жасамаңыз !

Бұл әдіс ( F5 > Арнайы… > Бос орындар ) табады және диапазондағы барлық бос ұяшықтарды таңдайды:

Егер қазір таңдалған ұяшықтарды тінтуірдің оң жақ түймешігімен басып, Жою > Толық баған , құрамында кемінде бір бос ұяшық бар барлық бағандар жоғалады! Егер сіз мұны байқаусызда жасасаңыз, барлығын қайтару үшін Ctrl + Z пернелер тіркесімін басыңыз.

Енді Excel бағдарламасындағы бос бағандарды жоюдың қате әдісін білетін болсаңыз, оны қалай дұрыс жасау керектігін көрейік.

VBA көмегімен Excel бағдарламасында бос бағандарды жою жолы

ТәжірибеліExcel пайдаланушылары мына ережені біледі: бірдеңені қолмен жасау үшін сағатты босқа өткізбеу үшін, оны автоматты түрде орындайтын макрос жазуға бірнеше минут жұмсаңыз.

Төмендегі VBA макросы таңдалған барлық бос бағандарды жояды. диапазон. Және ол мұны қауіпсіз түрде жасайды - тек мүлдем бос бағандар жойылады. Егер бағанда бір ұяшық мәні болса, тіпті кейбір формула арқылы қайтарылған бос жол болса, мұндай баған өзгеріссіз қалады.

Excel макросы: Excel парағынан бос бағандарды жою Public Sub DeleteEmptyColumns() Dim SourceRange диапазон ретінде Dim EntireColumn диапазон ретінде Қате туралы Жалғастыру Келесі орнату SourceRange = Application.InputBox( _ "Ауқым таңдау:" , "Бос бағандарды жою" , _ Application.Selection.Address, Түр :=8) Егер жоқ болса (SourceRange ештеңе емес ) Содан кейін Application.ScreenUpdating = False i үшін = SourceRange.Columns.Count 1-қадамға дейін -1 EntireColumn = SourceRange.Cells(1, i).EntireColumn Егер Application.WorksheetFunction.CountA(EntireColumn) = 0 болса, содан кейін EntireColumn.Соңын жою Келесі Applicationda.Screend болса = TrueU. If End Sub

Бос бағандарды жою макросын пайдалану жолы

Міне, Excel бағдарламасына макросты қосу қадамдары:

1. Visual Basic бағдарламасын ашу үшін Alt + F11 пернелерін басыңыз. Өңдеуші.
2. Мәзір жолағында Кірістіру > Модуль түймесін басыңыз.
3. Код терезесіне жоғарыдағы кодты қойыңыз. w.
4. Макросты іске қосу үшін F5 пернесін басыңыз.
5. Қалқымалы диалогтық терезе пайда болған кезде,қызықты жұмыс парағын, қажетті ауқымды таңдап, OK түймесін басыңыз:

Егер жұмыс парағына макрос қосқыңыз келмесе, оны біздің жұмыс дәптерінің үлгісі. Міне:

1. Excel бағдарламасындағы бос бағандарды жою үшін жұмыс кітабымыздың үлгісін жүктеп алыңыз, оны ашыңыз және сұралса мазмұнды қосыңыз.
2. Өз жұмыс кітабыңызды ашыңыз немесе бұрыннан ашылған кітапқа ауысыңыз.
3. Жұмыс кітабында Alt + F8 пернелерін басыңыз, Бос бағандарды жою макросын таңдап, Орындау түймесін басыңыз.
4. Қалқымалы диалогтық терезеде таңдаңыз. ауқымды таңдап, Жарайды түймесін басыңыз.

Қайткен күнде де таңдалған ауқымдағы барлық бос бағандар жойылады:

Формула арқылы Excel бағдарламасында бос бағандарды анықтау және жою

Жоғарыдағы макрос бос бағандарды жылдам және үнсіз жояды. Бірақ егер сіз «бәрін бақылауда ұстайтын» адам болсаңыз (мен сияқты :) сіз жойылатын бағандарды көрнекі түрде көргіңіз келуі мүмкін. Бұл мысалда біз алдымен формуланы пайдаланып бос бағандарды анықтаймыз, осылайша сіз оларды жылдам қарап шығып, содан кейін сол бағандардың барлығын немесе кейбірін алып тастай аласыз.

Ескертпе. Бірдеңені біржола жоймас бұрын, әсіресе белгісіз әдісті пайдалану арқылы, бірдеңе дұрыс болмаса, қауіпсіз болу үшін жұмыс кітабыңыздың сақтық көшірмесін жасауды қатаң ұсынамын.

қауіпсіз жерде сақтық көшірме жасау үшін келесі қадамдарды орындаңыз:

1-қадам. Жаңасын енгізужол

Кестенің жоғарғы жағына жаңа жол қосыңыз. Ол үшін бірінші жол тақырыбын тінтуірдің оң жақ түймешігімен басып, Кірістіру түймесін басыңыз. Деректеріңіздің құрылымын/орналастыруын бұзу туралы алаңдамаңыз - бұл жолды кейінірек жоюға болады.

2-қадам. Бос бағандарды анықтау

Ең сол жақта жаңадан қосылған жолдың ұяшығына келесі формуланы енгізіңіз:

=COUNTA(A2:A1048576)=0

Содан кейін толтыру тұтқасын сүйреу арқылы формуланы басқа бағандарға көшіріңіз.

Формуланың логикасы өте қарапайым: COUNTA бағандағы бос ұяшықтардың санын 2-жолдан 1048576-ға дейін тексереді, бұл Excel 2019 - 2007 нұсқасындағы ең көп жол. Сіз бұл санды нөлмен салыстырасыз және нәтижесінде бос бағандарда ШЫН болады. және кемінде бір бос емес ұяшықты қамтитын бағандарда ЖАЛҒАН. Салыстырмалы ұяшық сілтемелерін пайдаланудың арқасында формула көшірілген әрбір баған үшін дұрыс реттеледі.

Егер сіз жұмыс парағын басқа біреу үшін орнатып жатсаңыз, бағандарды мағыналы түрде белгілегіңіз келеді. Мәселе жоқ, мұны мынаған ұқсас IF операторымен оңай жасауға болады:

=IF(COUNTA(A2:A1048576)=0, "Blank", "Not blank")

Енді формула қай бағандардың бос және қайсысы болмайтынын анық көрсетеді:

Кеңес. Макроспен салыстырғанда бұл әдіс қай бағандарды бос деп санауға қатысты көбірек икемділік береді. Бұл мысалда біз бүкіл кестені, соның ішінде тақырып жолын тексереміз. Бұл дегеніміз, егер бағантек тақырыпты қамтиды, мұндай баған бос деп саналмайды және жойылмайды. Тек деректер жолдарын баған тақырыптарын елемеу тексергіңіз келсе, тақырып жол(дарын) мақсатты ауқымнан алып тастаңыз (A3:A1048576). Нәтижесінде тақырыбы бар және басқа деректері жоқ баған бос болып есептеледі және жойылуға жатады. Сондай-ақ, ауқымды біздің жағдайда A11 болатын соңғы пайдаланылған жолмен шектей аласыз.

3-қадам. Бос бағандарды жою

Бағандардың жеткілікті саны бар болса, жай ғана таңдауға болады. бірінші жолда «Бос» барлар (бірнеше бағандарды таңдау үшін баған әріптерін басқан кезде Ctrl пернесін басып тұрыңыз). Содан кейін кез келген таңдалған бағанды ​​тінтуірдің оң жақ түймешігімен басып, контекстік мәзірден Жою пәрменін таңдаңыз:

Егер жұмыс парағында ондаған немесе жүздеген бағандар болса, бос болғандардың барлығын көрсету мағынасы бар. Ол үшін келесі әрекеттерді орындаңыз:

1. Формулалары бар жоғарғы жолды таңдап, Деректер қойындысына > Сұрыптау және сүзу тобына өтіп, Сұрыптау түймесі.
2. Пайда болған ескерту тілқатысу терезесінде Таңдауды кеңейту тармағын таңдап, Сұрыптау...

   түймесін басыңыз.

3. Бұл Сұрыптау тілқатысу терезесін ашады, онда Параметрлер... түймесін басып, Сұрыптау солдан оңға және Жарайды басыңыз.

   

4. Төменде көрсетілгендей тек бір сұрыптау деңгейін конфигурациялаңыз және OK түймесін басыңыз:
   • Сұрыптау: 1-жол
   • Сұрыптау қосулы: ұяшықМәндер
   • Тәртіп: A - Z

   

   Нәтижесінде бос бағандар жұмыс парағының сол жақ бөлігіне жылжытылады:

   

5. Барлық бос бағандарды таңдаңыз - бірінші бағанның әрпін басыңыз, Shift пернесін басыңыз, содан кейін соңғы бос бағанның әрпін басыңыз.
6. Оң жақ- таңдалған бағандарды басып, қалқымалы мәзірден Жою пәрменін таңдаңыз.

   

Дайын! Сіз бос бағандардан құтылдыңыз, енді формулалары бар жоғарғы жолды жоюға ешнәрсе кедергі келтірмейді.

Excel бағдарламасындағы бос бағандарды жоюдың ең жылдам жолы

Осы оқулықтың басында мен Excel бағдарламасында бос бағандарды жоюдың бір рет басу әдісі жоқ екенін жаздым. Шындығында, бұл дұрыс емес. Мен кіріктірілген жол жоқ деп айтуым керек еді. Ultimate Suite пайдаланушылары Excel бағдарламасындағы бос орындарды бірнеше рет басу арқылы жоя алады :)

Мақсатты жұмыс парағында Ablebits құралдары қойындысына ауысып, Бос орындарды жою<түймесін басыңыз. 2> және Бағандарды босату пәрменін таңдаңыз:

Бұл кездейсоқ тінтуірдің басылуы емес екеніне көз жеткізу үшін қондырма сізден мынаны растауды сұрайды. сіз шынымен сол жұмыс парағынан бос бағандарды жойғыңыз келеді:

Жарайды түймесін басыңыз және бір сәтте барлық бос бағандар жойылады!

Жоғарыда талқыланған макрос сияқты, бұл құрал тек мүлдем бос бағандарды жояды. Кез келген жалғыз мәні бар бағандар, соның ішінде тақырыптарсақталған.

Бос орындарды жою Excel пайдаланушысы ретінде өміріңізді жеңілдететін ондаған тамаша мүмкіндіктердің бірі ғана. Қосымша ақпарат алу үшін Excel бағдарламасына арналған Ultimate Suite қолданбасының сынақ нұсқасын жүктеп алуыңызға болады.

Бос бағандар жойылмайды! Неліктен?

Мәселе : Жоғарыда аталған әдістердің барлығын қолданып көрдіңіз, бірақ жұмыс парағында бір немесе бірнеше бос бағандар тұрып қалды. Неліктен?

Сірә, бұл бағандар шынымен бос емес. Адам көзіне көрінбейтін көптеген әртүрлі таңбалар Excel электрондық кестелерінде байқалмай қалуы мүмкін, әсіресе ақпаратты сыртқы көзден импорттасаңыз. Бұл жай бос жол немесе бос орын таңбасы, үзілмейтін бос орын немесе басқа басып шығарылмайтын таңба болуы мүмкін.

Кінәлілерді белгілеу үшін проблемалық бағандағы бірінші ұяшықты таңдап, Ctrl + төмен көрсеткі пернелер тіркесімін басыңыз. . Мысалы, төмендегі скриншоттағы C бағаны C6 ішіндегі бір бос орын таңбасы болғандықтан бос емес:

Онда не бар екенін көру үшін ұяшықты екі рет басыңыз немесе жай ғана белгісіз нәрседен құтылу үшін Delete пернесін басыңыз. Содан кейін сол бағанда басқа көрінбейтін нәрселердің бар-жоғын білу үшін жоғарыдағы процесті қайталаңыз. Сондай-ақ алдыңғы, кейінгі және үзілмейтін бос орындарды жою арқылы деректеріңізді тазалағыңыз келуі мүмкін.

Оқығаныңыз үшін рахмет және келесі аптада блогымызда көреміз деп үміттенемін!