პირობითი ფორმატირება (5)
სიები და დიაპაზონები (5)
მაკროები (VBA პროცედურები) (63)
სხვადასხვა (39)
Excel-ის შეცდომები და ხარვეზები (4)

როგორ ჩასვათ კოპირებული უჯრედები მხოლოდ ხილულ/გაფილტრულ უჯრედებში

ზოგადად, სტატიის აზრი, მგონი, სათაურიდან უკვე გასაგებია. ცოტა გავაფართოვებ.

საიდუმლო არ არის, რომ Excel საშუალებას გაძლევთ აირჩიოთ მხოლოდ ხილული რიგები (მაგალითად, თუ ზოგიერთი მათგანი დამალულია ან გამოყენებულია ფილტრი).

ასე რომ, თუ ამ გზით მხოლოდ ხილულ უჯრედებს დააკოპირებთ, ისინი დაკოპირდება, როგორც მოსალოდნელია. მაგრამ როდესაც თქვენ ცდილობთ ჩასვას რაიმე კოპირებული გაფილტრულ დიაპაზონში (ან შეიცავს ფარულ რიგებს), პასტის შედეგი არ იქნება ზუსტად ის, რასაც ელოდით. მონაცემები ჩასმული იქნება დამალულ რიგებშიც კი.

დააკოპირეთ უჯრედების ერთი დიაპაზონი და ჩასვით მხოლოდ ხილულ უჯრედებში
მონაცემების მხოლოდ ხილულ უჯრედებში ჩასართავად შეგიძლიათ გამოიყენოთ შემდეგი მაკრო:

Option Explicit Dim rCopyRange As Range „ამ მაკროთი ჩვენ ვაკოპირებთ მონაცემებს Sub My_Copy() If Selection.Count > 1 შემდეგ დააყენეთ rCopyRange = Selection.SpecialCells(xlVisible) Else : დააყენეთ rCopyRange = ActiveCell End If End Sub „ამ მაკროთი ჩვენ ჩავსვამთ მონაცემებს დაწყებული არჩეული უჯრედიდან Sub My_Paste() თუ rCopyRange არაფერია, მაშინ გამოდით Sub If rCopyRange.Areas.Count > 1 შემდეგ MsgBox "ჩასმული დიაპაზონი არ უნდა შეიცავდეს ერთზე მეტ რეგიონს!",vbკრიტიკული, "არასწორი დიაპაზონი": გასვლა Sub Dim rCell As Range, li As Long, Le As Long, lCount As Long, iCol როგორც მთელი რიცხვი, iCalculation როგორც მთელი რიცხვი. .Columns.Count li = 0: lCount = 0: le = iCol - 1 თითოეული rCell-ისთვის rCopyRange.Columns(iCol).Cells Do If ActiveCell.Offset(li, le).EntireColumn.Hidden = False და _ ActiveCell.Offset (li, le).EntireRow.Hidden = False შემდეგ rCell.Copy ActiveCell.Offset(li, le): lCount = lCount + 1 End If li = li + 1 Loop while lCount >= rCell.Row - rCopyRange.Cells(1 .შემდეგი მწკრივი rCell შემდეგი iCol Application.ScreenUpdating = True : Application.Calculation = iCalculation End Sub

Option Explicit Dim rCopyRange As Range "გამოიყენეთ ეს მაკრო მონაცემების დასაკოპირებლად Sub My_Copy() If Selection.Count > 1 შემდეგ დააყენეთ rCopyRange = Selection.SpecialCells(xlVisible) სხვა: დააყენეთ rCopyRange = ActiveCell End If End Sub "გამოიყენეთ ეს მაკრო ჩასმისთვის მონაცემები დაწყებული არჩეული უჯრედებიდან Sub My_Paste() თუ rCopyRange არის Nothing, მაშინ Exit Sub If rCopyRange.Areas.Count > 1 შემდეგ MsgBox "ჩასმული დიაპაზონი არ უნდა შეიცავდეს ერთზე მეტ ზონას!", vbCritical, "არასწორი დიაპაზონი": გასვლა Sub Dim rCell As Range, li As Long, le As Long, lCount As Long, iCol როგორც მთელი რიცხვი, iCalculation როგორც მთელი რიცხვი Application.ScreenUpdating = False iCalculation = Application.Calculation: Application.Calculation = -4135 For iColumRsange = 1 to. .Count li = 0: lCount = 0: le = iCol - 1 თითოეული rCell-ისთვის rCopyRange.Columns(iCol).Cells Do If ActiveCell.Offset(li, le).EntireColumn.Hidden = False And _ ActiveCell.Offset(li , le).EntireRow.Hidden = False შემდეგ rCell.Copy ActiveCell.Offset(li, le): lCount = lCount + 1 End If li = li + 1 Loop while lCount >= rCell.Row - rCopyRange.Cells(1). რიგი შემდეგი rCell შემდეგი iCol Application.ScreenUpdating = True: Application.Calculation = iCalculation ბოლოს ქვე

სურათის დასასრულებლად ჯობია ეს მაკრო მივანიჭოთ ცხელ კლავიშებს (ქვემოთ კოდებში ეს ხდება ავტომატურად წიგნის კოდით გახსნისას). ამისათვის თქვენ უბრალოდ უნდა დააკოპიროთ ქვემოთ მოცემული კოდები მოდულში ეს წიგნი (ეს სამუშაო წიგნი) :

გამოკვეთილი ვარიანტი "გააუქმეთ ცხელი კლავიშების მინიჭება სამუშაო წიგნის დახურვამდე Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.OnKey "^q": Application.OnKey "^w" ბოლოს Sub "მიენიჭეთ ცხელი კლავიშები სამუშაო წიგნის გახსნისას Private Sub Workbookp_Open() .OnKey "^q", "My_Copy": Application.OnKey "^w", "My_Paste" ბოლო ქვე

ახლა თქვენ შეგიძლიათ დააკოპიროთ სასურველი დიაპაზონი ღილაკების დაჭერით Ctrl + ქ და ჩადეთ გაფილტრულში - Ctrl + ვ .

ჩამოტვირთეთ მაგალითი

(46.5 KiB, 9,622 ჩამოტვირთვა)

დააკოპირეთ მხოლოდ ხილული უჯრედები და ჩასვით მხოლოდ ხილულ უჯრედებში
საიტის ვიზიტორების თხოვნით გადავწყვიტე დამეხვეწა ეს პროცედურა. ახლა შესაძლებელია ნებისმიერი დიაპაზონის კოპირება: ფარული რიგებით, ფარული სვეტებით და კოპირებული უჯრედების ჩასმა ნებისმიერ დიაპაზონში: ფარული რიგებით, ფარული სვეტებით. ის მუშაობს ზუსტად ისევე, როგორც წინა: ღილაკების დაჭერით Ctrl + ქ დააკოპირეთ სასურველი დიაპაზონი (დამალული/გაფილტრული სტრიქონებითა და სვეტებით თუ არ არის დამალული)და ჩასვით კლავიატურის მალსახმობი Ctrl + ვ . ჩასმა ასევე შესრულებულია დამალულ/გაფილტრულ რიგებში და სვეტებში ან ფარულის გარეშე.
თუ კოპირებული დიაპაზონი შეიცავს ფორმულებს, მაშინ მიმართვის გადაადგილების თავიდან ასაცილებლად, შეგიძლიათ დააკოპიროთ მხოლოდ უჯრედის მნიშვნელობები - ე.ი. მნიშვნელობების ჩასმისას ჩასმული იქნება არა ფორმულები, არამედ მათი გამოთვლის შედეგი. ან თუ საჭიროა იმ უჯრედების ფორმატების შენარჩუნება, რომლებშიც ხდება ჩასმა, მხოლოდ უჯრედის მნიშვნელობები კოპირდება და ჩასმული იქნება. ამისათვის თქვენ უნდა შეცვალოთ ხაზი კოდში (ქვემოთ მოცემულ ფაილში):

rCell.Copy rResCell.Offset(lr, lc)

rCell.Copy rResCell.Offset(lr, lc)

ამას:

rResCell.Offset(lr, lc) = rCell.Value

rResCell.Offset(lr, lc) = rCell.Value

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

ჩამოტვირთეთ მაგალითი:

(54.5 KiB, 7,928 ჩამოტვირთვა)

ასევე იხილეთ:
[]

დაეხმარა სტატია? გაუზიარე ბმული მეგობრებს! ვიდეო გაკვეთილები

("ქვედა ზოლი":("ტექსტის სტილი":"სტატიკური","ტექსტის სტატიკური":"ქვედა","ტექსტოჰიდე":true,"textpositionmarginstatic":0,"textpositiondynamic":"ქვედა მარცხენა","textpositionmarginleft":24," textpositionmarginright":24,"textpositionmargintop":24,"textpositionmarginbottom":24,"texteffect":"slide","texteffecteasing":"easeOutCubic","texteffectduration":600,"texteffectslidedirection":"მარცხნივ","ტექსტის ეფექტი" :30,"texteffectdelay":500,"texteffectseparate":false,"texteffect1":"slide","texteffectslidedirection1":"მარჯვნივ","texteffectslidedistance1":120,"texteffecteasing1":"easeOutCubic,"text. "texteffectdelay1":1000,"texteffect2":"slide","texteffectslidedirection2":"მარჯვნივ","texteffectslidedistance2":120,"texteffecteasing2":"easeOutCubic","texteffectduration2":600,""texteffectslidedirection2":600"text textcss":"display:block:left;","textbgcs":"display:absolute-color:#333333; ","titlecss":"display:block; პოზიცია:ნათესავი; font:bold 14px \"Lucida Sans Unicode\",\"Lucida Grande\",sans-serif,Arial; ფერი:#fff;","descriptioncss":"display:block; პოზიცია:ნათესავი; font:12px \"Lucida Sans Unicode\",\"Lucida Grande\",sans-serif,Arial; ფერი:#fff; margin-top:8px;","buttoncss":"display:block; პოზიცია:ნათესავი; margin-top:8px;","texteffectresponsive":true,"texteffectresponsivesize":640,"titlecssresponsive":"font-size:12px;","descriptioncssresponsive":"display:none !მნიშვნელოვანი;","buttoncssresponsive" "","addgooglefonts":false,"googlefonts":"","textleftrightpercentforstatic":40))

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

მიჰყევით ქვემოთ მოცემულ ნაბიჯებს.

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

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

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

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

მეტი ინფორმაცია

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

მონაცემთა შერჩევა Excel-ში განხორციელდა ფილტრის ან დახარისხების გამოყენებით. ახლა საჭიროა მათი დაბეჭდვა ან სხვა ადგილას გადატანა. დააკოპირეთ Excel-შიკონფიგურირებულია ისე, რომ ფარული უჯრედებიც კოპირდება.
განვიხილოთ ორი გზა, რომ როგორ დავაკოპიროთ გაფილტრული რიგები Excel-ში.
პირველი გზა.
Excel-ში არის შესანიშნავი ფუნქცია - ჩასვით სპეციალური ფუნქცია Excel-ში.
ასე რომ, ჩვენ გვაქვს მაგიდა.
როგორ დააინსტალიროთ ფილტრი, იხილეთ სტატია "გაფილტვრა Excel-ში“.
ჩვენ ვიყენებთ ფილტრს, რომ ამოიღოთ ყველა ივანოვი სიიდან. ასე გამოვიდა.
აირჩიეთ ცხრილი და დააწკაპუნეთ "ასლი" კონტექსტურ მენიუში. დააწკაპუნეთ A9 უჯრედზე მარცხნივ და აირჩიეთ "მნიშვნელობები" კონტექსტური მენიუში.
დააჭირეთ "OK". ვოილა. დაკოპირდა არა მხოლოდ ხილული რიგების მნიშვნელობა, არამედ უჯრედების ფორმატიც.
არის ერთი ნიუანსი- ჩადეთ გაფილტრული მონაცემები არა იმ რიგებში, სადაც ფილტრი მდებარეობს. მაგალითად, ჩვენს მაგალითში - არა 1-7 სტრიქონებში, არამედ ქვემოთ ან სხვა ფურცელზე და ა.შ. თუ ჩვენ ჩავსვამთ სტრიქონებს, სადაც მდებარეობს ფილტრი, მაშინ გაფილტრული მონაცემები ასევე ჩასმული იქნება ფილტრის მიერ დამალულ რიგებში. ზოგადად, არეულობა გამოვა. მეორე გზა.
მაგიდა იგივეა. აირჩიეთ ცხრილი გაფილტრული მონაცემებით. "მთავარი" ჩანართზე დააწკაპუნეთ განყოფილებაში "რედაქტირება". იპოვეთ და მონიშნეთ ფუნქციები Excel-ში. შემდეგ დააჭირეთ ღილაკს "გადასვლა". დიალოგურ ფანჯარაში, რომელიც გამოჩნდება, დააჭირეთ ღილაკს "აირჩიეთ ...". ფანჯარაში "აირჩიეთ უჯრედების ჯგუფი" მონიშნეთ ყუთი "მხოლოდ ხილული უჯრედების" გვერდით. დააჭირეთ "OK". ახლა ჩვენ მოვუწოდებთ იმავე შერჩეულ მაგიდას მარჯვენა მაუსით კონტექსტური მენიუ. დააჭირეთ "ასლი" ფუნქციას. ახალ ადგილას (ჩვენს მაგალითში, ეს არის უჯრედი A15), დააჭირეთ "ჩასმა". ყველა. ასე გამოვიდა.
როგორ, კოპირების გარეშე, მაშინვე ფილტრის მონაცემების დაბეჭდვა ექსელში, იხილეთ სტატია „სანიშნე Excel ფურცელი"გვერდის განლაგება"

ჩასვით მხოლოდ ხილულ ხაზებშიExcelრიცხვები, ფორმულები, ტექსტი შეიძლება გაკეთდეს რამდენიმე გზით. როდესაც თქვენ გჭირდებათ რიცხვების, ფორმულების, ტექსტის ჩასმა ცხრილის არა ყველა სტრიქონში, შეგიძლიათ გამოიყენოთ ფილტრი. როგორ დააინსტალიროთ ფილტრი და როგორ გავფილტროთ Excel-ში, იხილეთ სტატია „ფილტრი Excel-ში“. მაგრამ მონაცემების მხოლოდ ხილულ უჯრედებში ჩასართავად გჭირდებათ საკუთარი მეთოდები, განსაკუთრებით თუ ბევრი სტრიქონია.
პირველი გზა არისჩვეულებრივი .
ავიღოთ ასეთი ცხრილი. ცხრილი იგივე იქნება ყველა მაგალითისთვის.
მოდით გამოვიყენოთ ფილტრი ცხრილიდან 2 ციფრის ამოსაღებად. დარჩენილ ხილულ უჯრედებში ჩავსვამთ რიცხვს 600. B2 უჯრედში ვსვამთ რიცხვს 600, შემდეგ დააკოპირეთ იგი სვეტში (გააწიეთ B2 უჯრედის ქვედა მარჯვენა კუთხე). მნიშვნელობები დაკოპირდა მხოლოდ ხილულ უჯრედებზე. თქვენ ასევე შეგიძლიათ ჩასვათ ფორმულები იმავე გზით. ჩვენ ვწერთ შემდეგ ფორმულას C2 უჯრედში. =A2*10
ასე გამოვიდა.
მოდით გავაუქმოთ ფილტრი. შედეგი არის ასეთი ცხრილი.
ფორმულა და რიცხვები ჩასმული იყო მხოლოდ გაფილტრულ რიგებში.
მეორე გზა.
ჩვენ ასევე გავფილტრავთ მონაცემებს. პირველ უჯრედში ვწერთ რიცხვს, ფორმულას, ტექსტს და ა.შ. ახლა, თუ ათასობით მწკრივია, მაშინ აირჩიეთ უჯრედები ასე: დააჭირეთ კლავიშებს „Ctrl“ + „Shift“ + ისრის ღილაკზე ქვემოთ (ან ზემოთ ღილაკზე, იმისდა მიხედვით, თუ სად გვინდა უჯრედების არჩევა - ქვემოთ ან ზემოთ. უჯრედი, რომელშიც ნომერი ეწერა).
ახლა, ან დააჭირეთ კლავიშთა კომბინაციას "Ctrl" + G ან F5 კლავიშს. გარდამავალი დიალოგური ფანჯარა გამოჩნდება. დააჭირეთ ღილაკს "აირჩიეთ ...". და ახალ დიალოგურ ფანჯარაში „აირჩიეთ უჯრედების ჯგუფი“, მონიშნეთ ყუთი სიტყვების გვერდით „მხოლოდ ხილული უჯრედები“.დააჭირეთ "OK". შემდეგ ჩადეთ ჩვეულებისამებრ.

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

რომ შეავსეთ ხილული უჯრედები არჩეულ Excel სვეტებში, დააჭირეთ კლავიშთა კომბინაციას "Ctrl" + D. და ყველა შერჩეული სვეტი შეივსება მონაცემებით ან ფორმულით, როგორც პირველ უჯრედში. ჩვენს მაგალითში ჩვენ დავწერეთ რიცხვი 800 უჯრედში D2, სვეტი D.

მესამე გზა.
ახალ სვეტში (ჩვენს მაგალითში, სვეტი E), აირჩიეთ უჯრედები. დააჭირეთ F5 ღილაკს. გარდამავალი დიალოგური ფანჯარა გამოჩნდება. დააჭირეთ ღილაკს "აირჩიეთ ...". და ახალ დიალოგურ ფანჯარაში „აირჩიეთ უჯრედების ჯგუფი“, მონიშნეთ ყუთი სიტყვების გვერდით „მხოლოდ ხილული უჯრედები“. დააჭირეთ "OK". ახლა, შერჩევის გაუქმების გარეშე, სვეტის პირველ უჯრედში (ჩვენი არის E2), შეიყვანეთ ფორმულა, ნომერი და ა.შ. დააჭირეთ კლავიშთა კომბინაციას "Ctrl" + "Enter".