Სარჩევი
გაკვეთილი გასწავლით როგორ ამოიღოთ ცარიელი სვეტები Excel-ში მაკრო, ფორმულით და ღილაკზე დაწკაპუნებით.
რაც არ უნდა ტრივიალური იყოს, ცარიელი სვეტების წაშლა Excel-ში არის არა ის, რაც შეიძლება განხორციელდეს მაუსის უბრალო დაწკაპუნებით. ეს არ შეიძლება გაკეთდეს ორი დაწკაპუნებით. თქვენი სამუშაო ფურცლის ყველა სვეტის გადახედვისა და ცარიელი სვეტების ხელით წაშლის პერსპექტივა ნამდვილად არის ის, რისი თავიდან აცილებაც გსურთ. საბედნიეროდ, Microsoft Excel გთავაზობთ უამრავ განსხვავებულ ფუნქციას და ამ ფუნქციების კრეატიული გზებით გამოყენებით, თქვენ შეგიძლიათ გაუმკლავდეთ თითქმის ნებისმიერ ამოცანას!
ცარიელი სვეტების წაშლის სწრაფი გზა, რომელიც არასდროს არ უნდა გამოიყენეთ
როცა საქმე ეხება Excel-ში ბლანკების ამოღებას (იქნება ეს ცარიელი უჯრედები, რიგები თუ სვეტები), ბევრი ონლაინ რესურსი ეყრდნობა სპეციალურზე გადასვლა > ბლანკები ბრძანება. არასდროს გააკეთოთ ეს თქვენს სამუშაო ფურცლებზე!
ეს მეთოდი ( F5 > სპეციალური… > ცარიელები ) პოულობს და ირჩევს ყველა ცარიელ უჯრედს დიაპაზონში:
თუ ახლა დააწკაპუნეთ არჩეულ უჯრედებზე მარჯვენა ღილაკით და აირჩიეთ წაშლა > მთელი სვეტი , ყველა სვეტი, რომელიც შეიცავს ერთ ცარიელ უჯრედს დაიკარგება! თუ ეს უნებურად გააკეთეთ, დააჭირეთ Ctrl + Z, რომ ყველაფერი დაიბრუნოთ.
ახლა, როცა იცით Excel-ში ცარიელი სვეტების წაშლის არასწორი გზა, ვნახოთ, როგორ გავაკეთოთ ეს სწორად.
როგორ ამოიღოთ ცარიელი სვეტები Excel-ში VBA-ით
გამოცდილიExcel-ის მომხმარებლებმა იციან ეს ცერი წესი: არ დაკარგოთ საათები რაღაცის ხელით კეთებაში, ჩადეთ რამდენიმე წუთი მაკროსის დაწერაში, რომელიც ამას ავტომატურად გააკეთებს თქვენთვის.
ქვემოთ VBA მაკრო წაშლის ყველა ცარიელ სვეტს არჩეულში. დიაპაზონი. და ის ამას უსაფრთხოდ აკეთებს - მხოლოდ აბსოლუტურად ცარიელი სვეტები იშლება. თუ სვეტი შეიცავს ერთი უჯრედის მნიშვნელობას, თუნდაც ცარიელ სტრიქონს, რომელიც დაბრუნებულია რაიმე ფორმულით, ასეთი სვეტი დარჩება ხელუხლებელი.
Excel მაკრო: ამოიღეთ ცარიელი სვეტები Excel ფურცლიდან Public Sub DeleteEmptyColumns() Dim SourceRange As Range Dim EntireColumn As Range შეცდომაზე Resume შემდეგი Set SourceRange = Application.InputBox( _ "Select a range:" , "Delete Empty Columns" , _ Application.Selection.Address, ტიპი :=8) თუ არა (SourceRange Is Nothing) მაშინ Application.ScreenUpdating = False იყიდება i = SourceRange.Columns.Count 1 ნაბიჯისთვის -1 დააყენეთ EntireColumn = SourceRange.Cells(1, i).EntireColumn If Application.WorksheetFunction.CountA(EntireColumn) = 0 შემდეგ EntireColumn.Delete End If NextUpplication.Scre EndUpplication.Scre თუ End Subროგორ გამოვიყენოთ Delete Empty Columns მაკრო
აქ არის ნაბიჯები მაკრო Excel-ში დასამატებლად:
- დააჭირეთ Alt + F11 Visual Basic-ის გასახსნელად რედაქტორი.
- მენიუ ზოლში დააწკაპუნეთ ჩასმა > მოდული .
- ჩასვით ზემოთ კოდი კოდის ფანჯარაში w.
- დააჭირეთ F5 მაკროს გასაშვებად.
- როდესაც გამოჩნდება ამომხტარი დიალოგი, გადართეთსაინტერესო სამუშაო ფურცელი, აირჩიეთ სასურველი დიაპაზონი და დააწკაპუნეთ OK:
თუ არ გსურთ თქვენს სამუშაო ფურცელზე მაკროს დამატება, შეგიძლიათ მისი გაშვება სამუშაო წიგნის ნიმუში. აი როგორ:
- ჩამოტვირთეთ ჩვენი სამუშაო წიგნის ნიმუში Excel-ში ცარიელი სვეტების ამოსაღებად, გახსენით იგი და მოთხოვნის შემთხვევაში ჩართეთ კონტენტი.
- გახსენით თქვენი საკუთარი სამუშაო წიგნი ან გადართეთ უკვე გახსნილზე.
- თქვენს სამუშაო წიგნში დააჭირეთ Alt + F8 , აირჩიეთ DeleteEmptyColumns მაკრო და დააწკაპუნეთ Run .
- pop-up დიალოგში აირჩიეთ დიაპაზონი და დააწკაპუნეთ OK .
ნებისმიერ შემთხვევაში, არჩეული დიაპაზონის ყველა ცარიელი სვეტი განადგურდება:
Excel-ში ცარიელი სვეტების იდენტიფიცირება და წაშლა ფორმულით
ზემოხსენებული მაკრო სწრაფად და ჩუმად აშორებს ცარიელ სვეტებს. მაგრამ თუ თქვენ ხართ "შეინარჩუნეთ ყველაფერი კონტროლის ქვეშ" (როგორც მე ვარ :), შეგიძლიათ ვიზუალურად ნახოთ სვეტები, რომლებიც წაიშლება. ამ მაგალითში, ჩვენ ჯერ გამოვავლენთ ცარიელ სვეტებს ფორმულის გამოყენებით, რათა სწრაფად შეგეძლოთ მათი გადახედვა და შემდეგ ყველა ან ზოგიერთი სვეტის ამოღება.
შენიშვნა. სანამ რაიმეს სამუდამოდ წაშლით, განსაკუთრებით უცნობი ტექნიკის გამოყენებით, გირჩევთ, შექმნათ თქვენი სამუშაო წიგნის სარეზერვო ასლი , რათა უსაფრთხოდ იყოთ, თუ რამე არასწორედ მოხდება.
ერთად სარეზერვო ასლი უსაფრთხო ადგილას, შეასრულეთ შემდეგი ნაბიჯები:
ნაბიჯი 1. ჩადეთ ახალიrow
დაამატეთ ახალი მწკრივი თქვენი ცხრილის ზედა ნაწილში. ამისათვის დააწკაპუნეთ მაუსის მარჯვენა ღილაკით პირველი რიგის სათაურზე და დააჭირეთ Insert . არ ინერვიულოთ თქვენი მონაცემების სტრუქტურის/განლაგების გაფუჭებაზე - შეგიძლიათ წაშალოთ ეს მწკრივი მოგვიანებით.
ნაბიჯი 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. წაშალეთ ცარიელი სვეტები
სვეტების გონივრული რაოდენობის არსებობის შემთხვევაში, შეგიძლიათ უბრალოდ აირჩიოთ მათ, ვისაც აქვს "ცარიელი" პირველ რიგში (მრავალი სვეტის ასარჩევად, დააჭირეთ Ctrl ღილაკს, როდესაც დააჭირეთ სვეტის ასოებს). შემდეგ, დააწკაპუნეთ მაუსის მარჯვენა ღილაკით ნებისმიერ არჩეულ სვეტზე და აირჩიეთ წაშლა კონტექსტური მენიუდან:
თუ თქვენს სამუშაო ფურცელში ათობით ან ასობით სვეტია, აზრი აქვს ყველა ცარიელის სანახავად მოყვანას. ამისათვის გააკეთეთ შემდეგი:
- აირჩიეთ ზედა მწკრივი ფორმულებით, გადადით მონაცემები ჩანართზე > დახარისხება და გაფილტვრა ჯგუფში და დააწკაპუნეთ ღილაკი დახარისხება .
- გამაფრთხილებელ დიალოგურ ფანჯარაში, რომელიც გამოჩნდება, აირჩიეთ არჩევის გაფართოება და დააწკაპუნეთ დახარისხება...
- ეს გაიხსნება დახარისხება დიალოგური ფანჯარა, სადაც დააწკაპუნებთ პარამეტრები... ღილაკს, აირჩიეთ დახარისხება მარცხნიდან მარჯვნივ, და დააწკაპუნეთ OK .
- დააკონფიგურირეთ დალაგების მხოლოდ ერთი დონე, როგორც ეს ნაჩვენებია ქვემოთ და დააწკაპუნეთ OK:
- დახარისხება მიხედვით: მწკრივი 1
- დახარისხება ჩართულია: უჯრედიმნიშვნელობები
- მიმდევრობა: A-დან Z-მდე
შედეგად, ცარიელი სვეტები გადავა თქვენი სამუშაო ფურცლის მარცხენა ნაწილში:
- აირჩიეთ ყველა ცარიელი სვეტი - დააწკაპუნეთ სვეტის პირველ ასოზე, დააჭირეთ Shift და შემდეგ დააწკაპუნეთ ბოლო ცარიელი სვეტის ასოზე.
- მარჯვნივ- დააწკაპუნეთ არჩეულ სვეტებზე და აირჩიეთ წაშლა ამომხტარი მენიუდან.
შესრულებულია! თქვენ გაათავისუფლეთ ცარიელი სვეტები და ახლა ვერაფერი შეგიშლით ხელს ზედა მწკრივის წაშლაში ფორმულებით.
Excel-ში ცარიელი სვეტების ამოღების უსწრაფესი გზა
ამ გაკვეთილის დასაწყისში მე დავწერე, რომ არ არსებობს ერთი დაწკაპუნებით გზა Excel-ში ცარიელი სვეტების წასაშლელად. სინამდვილეში, ეს არ არის ზუსტად სიმართლე. უნდა მეთქვა, რომ არ არსებობს ჩაშენებული გზა. ჩვენი Ultimate Suite-ის მომხმარებლებს შეუძლიათ ამოიღონ ბლანკები Excel-ში სიტყვასიტყვით რამდენიმე დაწკაპუნებით :)
სამიზნე სამუშაო ფურცელში გადადით Ablebits Tools ჩანართზე, დააწკაპუნეთ Blanks წაშლა და აირჩიეთ ცარიელი სვეტები :
იმისათვის, რომ დარწმუნდეთ, რომ ეს არ იყო მაუსის შემთხვევითი დაწკაპუნება, დანამატი მოგთხოვთ ამის დადასტურებას ნამდვილად გსურთ ამ სამუშაო ფურცლიდან ცარიელი სვეტების ამოღება:
დააწკაპუნეთ OK და მალე ყველა ცარიელი სვეტი გაქრება!
როგორც ზემოთ განხილული მაკრო, ეს ინსტრუმენტი შლის მხოლოდ იმ სვეტებს, რომლებიც აბსოლუტურად ცარიელია . სვეტები, რომლებსაც აქვთ ერთი მნიშვნელობა, სათაურების ჩათვლით, არისშენახულია.
Blanks-ის წაშლა მხოლოდ ერთია იმ ათეულ მშვენიერ ფუნქციიდან, რომელსაც შეუძლია გააადვილოს თქვენი, როგორც Excel მომხმარებლის ცხოვრება. მეტის საძიებლად, შეგიძლიათ ჩამოტვირთოთ ჩვენი Ultimate Suite-ის საცდელი ვერსია Excel-ისთვის.
ცარიელი სვეტები არ წაიშლება! რატომ?
საკითხი : თქვენ სცადეთ ყველა ზემოთ ჩამოთვლილი მეთოდი, მაგრამ ერთი ან მეტი ცარიელი სვეტი ჩარჩენილია თქვენს სამუშაო ფურცელში. რატომ?
დიდი ალბათობით იმიტომ, რომ ეს სვეტები ნამდვილად არ არის ცარიელი. ადამიანის თვალისთვის უხილავი მრავალი განსხვავებული სიმბოლო შეიძლება შეუმჩნეველი იყოს თქვენს Excel ცხრილებში, განსაკუთრებით იმ შემთხვევაში, თუ ინფორმაცია შემოიტანეთ გარე წყაროდან. ეს შეიძლება იყოს უბრალო ცარიელი სტრიქონი ან ინტერვალის სიმბოლო, შეუცვლელი სივრცე ან სხვა დაუბეჭდავი სიმბოლო.
დამნაშავის დასაფიქსირებლად, აირჩიეთ პრობლემური სვეტის პირველი უჯრედი და დააჭირეთ Ctrl + ქვემოთ ისარი. . მაგალითად, ქვემოთ მოცემულ ეკრანის სურათზე C სვეტი არ არის ცარიელი C6-ში ერთი სივრცის სიმბოლოს გამო:
ორმაგად დააწკაპუნეთ უჯრედზე, რომ ნახოთ რეალურად რა არის მასში ან უბრალოდ დააჭირე Delete ღილაკს უცნობი რაღაცის მოსაშორებლად. შემდეგ გაიმეორეთ ზემოაღნიშნული პროცესი, რათა გაარკვიოთ არის თუ არა სხვა უხილავი საგნები ამ სვეტში. თქვენ ასევე შეიძლება დაგჭირდეთ თქვენი მონაცემების გასუფთავება წამყვანი, მიმავალი და უწყვეტი ადგილების წაშლით.
გმადლობთ, რომ კითხულობთ და იმედი მაქვს, მომავალ კვირას გნახავთ ჩვენს ბლოგზე!
