ეს პოსტი განიხილავს როგორ დავამატოთ ახალი სვეტები Excel-ში. წაიკითხეთ, რომ ისწავლოთ მალსახმობები ერთი ან მეტი სვეტის ჩასართავად, მათ შორის არამიმდებარე სვეტების. აიღეთ და გააზიარეთ სპეციალური VBA მაკრო ყოველი მეორე სვეტის დამატების ავტომატიზაციისთვის.

თქვენს Excel ცხრილში ახალი სვეტების ჩასართავად კარგი ხერხის ძიებისას, თქვენ სავარაუდოდ იპოვით უამრავ სხვადასხვა რჩევასა და ხრიკს. ამ სტატიაში ვიმედოვნებდი, რომ შევაგროვებდი ყველაზე სწრაფ და ეფექტურ გზებს ერთი ან რამდენიმე მიმდებარე ან არამიმდებარე სვეტის დასამატებლად.

როცა თქვენი ანგარიში Excel-ში თითქმის მზად არის, მაგრამ გესმით, რომ მას აკლია სვეტი. მნიშვნელოვანი დეტალების შესაყვანად გამოიყენეთ ქვემოთ მოცემული დროის ეფექტური ხრიკები. სვეტის მალსახმობების ჩასმადან ყოველი მეორე სვეტის დამატებამდე, დააწკაპუნეთ სწორ ბმულზე პირდაპირ პუნქტზე გადასასვლელად.

სვეტის მალსახმობის ჩასმა

თუ თქვენი ამოცანაა ერთის სწრაფად ჩასმა სვეტი, ეს ნაბიჯები გაცილებით სწრაფი და მარტივია.

1. დააწკაპუნეთ სვეტის ასო ღილაკზე დაუყოვნებლივ იმ ადგილის მარჯვნივ, სადაც გსურთ ჩასმა. ახალი სვეტი.

რჩევა. თქვენ ასევე შეგიძლიათ აირჩიოთ მთელი სვეტი ნებისმიერი უჯრედის არჩევით და Ctrl + Space მალსახმობის დაჭერით.

2. ახლა უბრალოდ დააჭირეთ Ctrl + Shift + + (პლუს მთავარ კლავიატურაზე).

რჩევა. თუ თქვენ ნამდვილად არ ხართ დაინტერესებული მალსახმობებით, შეგიძლიათ დააწკაპუნოთ არჩეულ სვეტზე და აირჩიეთ ჩასმა ვარიანტი მენიუს სიიდან.

ამას ნამდვილად სჭირდება.მხოლოდ ორი მარტივი ნაბიჯი Excel-ში ახალი მწკრივის ჩასასმელად. წაიკითხეთ, რომ ნახოთ, როგორ დაამატოთ რამდენიმე ცარიელი სვეტი თქვენს სიაში.

რჩევა. უფრო სასარგებლო კლავიატურის მალსახმობები შეგიძლიათ იხილოთ Excel-ის 30 ყველაზე სასარგებლო კლავიატურის მალსახმობებში.

Excel-ში რამდენიმე ახალი სვეტის ჩასმა

შეიძლება დაგჭირდეთ თქვენს სამუშაო ფურცელზე ერთზე მეტი ახალი სვეტის დამატება. ეს არ ნიშნავს, რომ თქვენ უნდა აირჩიოთ სვეტები სათითაოდ და ყოველ ჯერზე დააჭიროთ Excel-ში სვეტის ჩასმის მალსახმობს. საბედნიეროდ, შესაძლებელია რამდენიმე ცარიელი სვეტის ჩასმა ერთდროულად.

1. მონიშნეთ იმდენი სვეტი, რამდენი ახალი სვეტი გსურთ მიიღოთ სვეტის ღილაკების არჩევით. ახალი სვეტები გამოჩნდება დაუყოვნებლივ მარცხნივ.

რჩევა. თქვენ შეგიძლიათ იგივე გააკეთოთ, თუ აირჩევთ რამდენიმე მიმდებარე უჯრედს ერთ რიგში და დააჭირეთ Ctrl + Space.

2. დააჭირეთ Ctrl + Shift+ + (პლუს მთავარ კლავიატურაზე) ჩასმული რამდენიმე ახალი სვეტის სანახავად.

რჩევა. დააჭირეთ F4 ბოლო მოქმედების გასამეორებლად ან Ctrl + Y ახალი სვეტების ჩასასმელად.

ასე შეგიძლიათ მარტივად დაამატოთ რამდენიმე ახალი სვეტი თქვენს ცხრილში Excel-ში. თუ საჭიროა მრავალი არამიმდებარე სვეტის დამატება, იხილეთ ქვემოთ მოცემული ნაბიჯები.

დაამატეთ მრავალი არამიმდებარე სვეტი

Excel საშუალებას გაძლევთ აირჩიოთ მრავალი არამიმდებარე სვეტი და გამოიყენოთ სვეტის ჩასმის მალსახმობი მიიღეთ ახალი სვეტები გამოჩნდება მათ მარცხნივ.

1. აირჩიეთ რამდენიმე არამიმდებარე სვეტი მათ ღილაკებზე ასო დაწკაპუნებით და Ctrl ღილაკის დაჭერით. ახლად ჩასმული სვეტები გამოჩნდება მარცხნივ.

2. დააჭირეთ Ctrl + Shift+ + (პლუს მთავარ კლავიატურაზე) რამდენიმე ახალი ჩასმული სვეტის სანახავად მასობრივად.

დაამატეთ სვეტი სიაში, რომელიც ფორმატირებულია Excel-ის ცხრილის სახით

თუ თქვენი ცხრილი დაფორმატებულია როგორც Excel Table , შეგიძლიათ აირჩიოთ ვარიანტი ჩასმა ცხრილის სვეტები მარჯვნივ თუ ეს ბოლო სვეტია. თქვენ ასევე შეგიძლიათ აირჩიოთ ვარიანტი ჩასმა ცხრილის სვეტები მარცხნივ თქვენი ცხრილის ნებისმიერი სვეტისთვის.

1. სვეტის ჩასასმელად, თქვენ უნდა აირჩიოთ საჭირო ერთი და დააჭირეთ მასზე მარჯვენა ღილაკს.

2. შემდეგ აირჩიეთ Insert -> ცხრილის სვეტები მარჯვნივ ბოლო სვეტისთვის ან ცხრილის სვეტები მარცხნივ .

ახალ სვეტს ნაგულისხმევად დაერქმევა სვეტი1.

სპეციალური VBA მაკრო ყოველი მეორე სვეტის ჩასართავად

Excel-ის ბევრი მომხმარებელი ცდილობს დაზოგოს რაც შეიძლება მეტი დრო ელცხრილების ხშირი ამოცანების ავტომატიზაციის გზით. ასე რომ, ამ პოსტს მაკროს გარეშე ვერ დავტოვებდი. აიღეთ კოდის ეს მარტივი ნაწილი, თუ გჭირდებათ სვეტების ერთმანეთისგან გადატანა.

Sub InsertEveryOtherColumn() Dim colNo, colStart, colFinish, colStep As Long Dim rng2Insert As Range colStep = 2 colStart = Application.Selection.Cells(1 ).Column + 1 colFinish = (ActiveSheet.UsedRange.SpecialCells( _ xlCellTypeLastCell).Column * 2) - colStart Application.ScreenUpdating = False Application.Calculation =xlCalculationManual For colNo = colStart To colFinish ნაბიჯი colStep ActiveSheet.Cells(1, colNo).EntireColumn.Insert Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic დაასრულეთ თქვენი რჩევები. თუ ხშირად მუშაობთ Excel-თან მწკრივებისა და სვეტების დონეზე, გადახედეთ ქვემოთ მითითებულ შესაბამის პოსტებს, რამაც შეიძლება გაგიმარტივოთ ზოგიერთი დავალება. ყოველთვის მივესალმები თქვენს შენიშვნებს და შეკითხვებს. იყავი ბედნიერი და გამოიჩინე Excel-ში!