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

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

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

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

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

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

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

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

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

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

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

პავლოვი ნიკოლაი

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

სწრაფად გადადით სასურველ ფურცელზე

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

ეს ბევრად უფრო სწრაფია, ვიდრე ფურცლების ჩანართების გადახვევა იმავე ღილაკების გამოყენებით, რაც გჭირდებათ.

დააკოპირეთ ფორმატის დაზიანების გარეშე

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

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

მხოლოდ ხილული უჯრედების კოპირება

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

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

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

აირჩიეთ კოპირების დიაპაზონი (ჩვენს მაგალითში ეს არის A1:C29)

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

ამ ფანჯარაში აირჩიეთ მხოლოდ ხილული უჯრედები და დააწკაპუნეთ OK.

ახლა მიღებული არჩევანის უსაფრთხოდ კოპირება და ჩასმა შესაძლებელია. შედეგად, ჩვენ მივიღებთ ხილული უჯრედების ასლს და არასაჭირო 29-ის ნაცვლად ჩავსვამთ მხოლოდ 5 რიგს, რომელიც გვჭირდება.

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

რიგების სვეტებად გადაქცევა და ისევ უკან

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

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

დააწკაპუნეთ მაუსის მარჯვენა ღილაკით ცარიელ უჯრედზე და აირჩიეთ Paste Special.

ფანჯარაში, რომელიც იხსნება, შეამოწმეთ Transpose flag და დააწკაპუნეთ OK:

სწრაფად დაამატეთ მონაცემები დიაგრამაზე

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

კიდევ ერთი გზა - მარტივი, სწრაფი და ლამაზი - არის უჯრედების შერჩევა ახალი მონაცემებით, მათი კოპირება (CTRL+C) და ჩასმა (CTRL+V) პირდაპირ სქემაში. Excel 2003, უფრო გვიანდელი ვერსიებისგან განსხვავებით, მხარს უჭერს მონაცემთა უჯრედების შერჩეული დიაპაზონის გადატანის და მაუსის გამოყენებით პირდაპირ ჩარტში ჩაგდების შესაძლებლობას!

თუ გსურთ გააკონტროლოთ ყველა ნიუანსი და დახვეწილობა, მაშინ შეგიძლიათ გამოიყენოთ არა ჩვეულებრივი, არამედ სპეციალური პასტა მენიუდან Edit> Paste Special არჩევით. ამ შემთხვევაში, Microsoft Excel აჩვენებს დიალოგურ ფანჯარას, რომელიც საშუალებას გაძლევთ დააკონფიგურიროთ სად და როგორ ზუსტად დაემატება ახალი მონაცემები:

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

ცარიელი უჯრედების შევსება

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

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

ამ პრობლემის სწრაფად და ლამაზად გადაჭრის გზა არსებობს ერთი ფორმულის გამოყენებით:

აირჩიეთ სვეტის ყველა უჯრედი ცარიელი სივრცეებით (ანუ დიაპაზონი A1:A12 ჩვენს შემთხვევაში)

არჩევანში მხოლოდ ცარიელი უჯრედების შესანარჩუნებლად დააჭირეთ F5 ღილაკს და ნავიგაციის ფანჯარაში, რომელიც იხსნება, დააჭირეთ ღილაკს Select. თქვენ ნახავთ ფანჯარას, რომელიც საშუალებას გაძლევთ აირჩიოთ რომელი უჯრედები გვინდა ავირჩიოთ:

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

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

შექმნილი ფორმულის ყველა არჩეულ ცარიელ უჯრედში ერთდროულად შესაყვანად, დააჭირეთ არა ENTER ღილაკს, არამედ კომბინაციას CTRL + ENTER. ფორმულა შეავსებს ყველა ცარიელ უჯრედს:

ახლა რჩება მხოლოდ ფორმულების შეცვლა მნიშვნელობებით შედეგების ჩასაწერად. აირჩიეთ დიაპაზონი A1:A12, დააკოპირეთ და ჩასვით მათი მნიშვნელობები უჯრედებში Paste Special-ის გამოყენებით.

ჩამოსაშლელი სია უჯრედში

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

იდეა ძალიან მარტივია - ყველა შემთხვევაში, როდესაც უნდა შეიყვანოთ მონაცემები ნებისმიერი ნაკრებიდან, ნაცვლად იმისა, რომ ხელით შეიყვანოთ უჯრედი კლავიატურიდან, ჩამოსაშლელი სიიდან აირჩიეთ სასურველი მნიშვნელობა მაუსით:

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

უჯრედში ჩამოსაშლელი სიის შესაქმნელად:

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

თუ გაქვთ Excel 2003 ან უფრო ძველი, მენიუდან აირჩიეთ Data> Validation. თუ გაქვთ Excel 2007/2010, გადადით მონაცემთა ჩანართზე და დააწკაპუნეთ მონაცემთა ვალიდაციის ღილაკს.

ფანჯარაში, რომელიც იხსნება, ჩამოსაშლელი სიიდან აირჩიეთ სია.

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

შეიყვანეთ ტექსტის ვარიანტები ამ ველში, გამოყოფილი მძიმით

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

თუ ის მდებარეობს ამ სამუშაო წიგნის სხვა ფურცელზე, მაშინ წინასწარ მოგიწევთ სახელის მიცემა (აირჩიეთ უჯრედები, დააჭირეთ CTRL+F3, შეიყვანეთ დიაპაზონის სახელი სივრცეების გარეშე) და შემდეგ ჩაწერეთ ეს სახელი ველში.

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

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

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

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

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

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)

ამას:

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))