Jak kopírovat do filtrovaných buněk. Kopírování pouze viditelných buněk

Vkládejte pouze do viditelných čarVynikatčísla, vzorce, text lze provést několika způsoby. Když potřebujete vložit čísla, vzorce, text do ne všech řádků tabulky, můžete použít filtr. Jak nainstalovat filtr a jak filtrovat v Excelu, viz článek „Filtr v Excelu“. Chcete-li však vkládat data pouze do viditelných buněk, potřebujete vlastní metody, zejména pokud je řádků mnoho.
První způsob je obyčejný .
Vezměme si takový stůl. Tabulka bude pro všechny příklady stejná.
Pomocí filtru odstraníme všechny číslice 2 z tabulky. Do zbývajících viditelných buněk vložíme číslo 600. Do buňky B2 vložíme číslo 600, poté jej zkopírujeme po sloupci (vytáhněte pravý dolní roh buňky B2). Hodnoty byly zkopírovány pouze do viditelných buněk. Stejným způsobem můžete také vkládat vzorce. Do buňky C2 zapíšeme následující vzorec. =A2*10
Dopadlo to takto.
Zrušme filtr. Výsledkem je taková tabulka.
Vzorec a čísla byly vloženy pouze do filtrovaných řádků.
Druhý způsob.
Data také vyfiltrujeme. Do první buňky napíšeme číslo, vzorec, text atd. Nyní, pokud existují tisíce řádků, vyberte buňky takto: stiskněte klávesy „Ctrl“ + „Shift“ + tlačítko se šipkou dolů (nebo tlačítko nahoru, podle toho, kde chceme vybrat buňky - pod nebo nad buňka, do které bylo číslo zapsáno).
Nyní, nebo stiskněte kombinaci kláves „Ctrl“ + G nebo klávesu F5. Zobrazí se dialogové okno Přechod. Klikněte na tlačítko „Vybrat...“. A v novém dialogovém okně „Vyberte skupinu buněk“ zaškrtněte políčko vedle slova „Pouze viditelné buňky“.Klikněte na "OK". Poté vložte jako obvykle.

Další způsob, jak vyvolat dialogové okno Vybrat skupinu buněk.Na kartě „Domů“ v části „Úpravy“ klikněte na tlačítko „Najít a vybrat“. V zobrazeném seznamu klikněte na funkci „Vybrat skupinu buněk“.

Na vyplnit viditelné buňky ve vybraných Excelové sloupce , stiskněte kombinaci kláves „Ctrl“ + D. A všechny vybrané sloupce budou vyplněny daty nebo vzorcem, jako v první buňce. V našem příkladu jsme do buňky D2 ve sloupci D zapsali číslo 800.



Třetí způsob.
V novém sloupci (v našem příkladu sloupec E) vyberte buňky. Stiskněte klávesu F5. Zobrazí se dialogové okno Přechod. Klikněte na tlačítko „Vybrat...“. A v novém dialogovém okně „Vyberte skupinu buněk“ zaškrtněte políčko vedle slova „Pouze viditelné buňky“. Klikněte na "OK". Nyní, bez zrušení výběru, do první buňky sloupce (naše je E2) zadejte vzorec, číslo atd. Stiskněte kombinaci kláves „Ctrl“ + „Enter“.

Podmíněné formátování (5)
Seznamy a rozsahy (5)
Makra (procedury VBA) (63)
Různé (39)
Chyby a závady Excelu (4)

Jak vložit zkopírované buňky pouze do viditelných/filtrovaných buněk

Obecně je smysl článku, myslím, jasný již z názvu. Jen to trochu rozšířím.

Není žádným tajemstvím, že Excel umožňuje vybrat pouze viditelné řádky (například pokud jsou některé z nich skryté nebo je použit filtr).

Pokud tedy tímto způsobem zkopírujete pouze viditelné buňky, budou zkopírovány podle očekávání. Ale když se pokusíte vložit něco zkopírovaného do filtrovaného rozsahu (nebo obsahujícího skryté řádky), výsledek vložení nebude přesně takový, jaký jste očekávali. Data budou vložena i do skrytých řádků.

Zkopírujte jeden rozsah buněk a vložte pouze do viditelných
Chcete-li vložit data pouze do viditelných buněk, můžete použít následující makro:

Možnost Explicit Dim rCopyRange As Range „Tímto makrem kopírujeme data Sub My_Copy() If Selection.Count > 1 Then Set rCopyRange = Selection.SpecialCells(xlVisible) Else : Set rCopyRange = ActiveCell End If End Sub "Tímto makrem vkládáme data od vybrané buňky Sub My_Paste() If rCopyRange Is Nothing Then Exit Sub If rCopyRange.Areas.Count > 1 Then MsgBox "Vložený rozsah nesmí obsahovat více než jednu oblast!",vbCritical, "Neplatný rozsah": Exit Sub Dim rCell As Range, li As Long , le As Long , lCount As Long , iCol As Integer , iCalculation As Integer Application.ScreenUpdating = False iCalculation = Application.Calculation: Application.Calculation = -4135 Pro iCol = 1 To rCopyRange .Columns.Count li = 0: lCount = 0: le = iCol - 1 pro každý rCell v rCopyRange.Columns(iCol).Cells Do If ActiveCell.Offset(li, le).EntireColumn.Hidden = False And _ ActiveCell.Offset (li, le).EntireRow.Hidden = False Then rCell.Copy ActiveCell.Offset(li, le): lCount = lCount + 1 End If li = li + 1 Loop While lCount >= rCell.Row - rCopyRange.Cells(1 ).Řádek Další rCell Další iCol Application.ScreenUpdating = True : Application.Calculation = iCalculation End Sub

Option Explicit Dim rCopyRange As Range "Použijte toto makro ke zkopírování dat Sub My_Copy() If Selection.Count > 1 Then Set rCopyRange = Selection.SpecialCells(xlVisible) Else: Set rCopyRange = ActiveCell End If End Sub "Použijte toto makro ke vložení data začínající od vybraných buněk Sub My_Paste() If rCopyRange Is Nothing Then Exit Sub If rCopyRange.Areas.Count > 1 Then MsgBox "Vložený rozsah nesmí obsahovat více než jednu oblast!", vbCritical, "Neplatný rozsah": Konec Sub Dim rCell As Range, li As Long, le As Long, lCount As Long, iCol As Integer, iCalculation As Integer Application.ScreenUpdating = False iCalculation = Application.Calculation: Application.Calculation = -4135 For iCol = 1 To rCopyRange.Columns .Count li = 0: lCount = 0: le = iCol - 1 pro každý rCell v rCopyRange.Columns(iCol).Cells Do If ActiveCell.Offset(li, le).EntireColumn.Hidden = False And _ ActiveCell.Offset(li , le).EntireRow.Hidden = False Then rCell.Copy ActiveCell.Offset(li, le): lCount = lCount + 1 End If li = li + 1 Loop While lCount >= rCell.Row - rCopyRange.Cells(1). Řádek Další rCell Další iCol Application.ScreenUpdating = True: Application.Calculation = iCalculation End Sub

Pro dokreslení je lepší tato makra přiřadit ovládacím klávesám (v níže uvedených kódech se to děje automaticky při otevření knihy s kódem). K tomu stačí zkopírovat níže uvedené kódy do modulu Tato kniha (Tento sešit) :

Option Explicit "Zrušit přiřazení klávesových zkratek před zavřením sešitu Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.OnKey "^q": Application.OnKey "^w" End Sub "Přiřadit klávesové zkratky při otevírání sešitu Private Sub Workbook_Open() Application .OnKey "^q", "My_Copy": Application.OnKey "^w", "My_Paste" End Sub

Nyní můžete zkopírovat požadovaný rozsah stisknutím kláves Ctrl + q a vložte jej do filtrovaného - Ctrl + w .

Stáhnout příklad

(46,5 kB, 9 622 stažení)

Zkopírujte pouze viditelné buňky a vložte pouze do viditelných
Na žádost návštěvníků stránek jsem se rozhodl tento postup zpřesnit. Nyní je možné kopírovat libovolné rozsahy: se skrytými řádky, skrytými sloupci a vkládat zkopírované buňky také do libovolných rozsahů: se skrytými řádky, skrytými sloupci. Funguje úplně stejně jako předchozí: stisknutím kláves Ctrl + q zkopírujte požadovaný rozsah (se skrytými/filtrovanými řádky a sloupci nebo neskryté) a vložte pomocí klávesové zkratky Ctrl + w . Vkládání se také provádí ve skrytých/filtrovaných řádcích a sloupcích nebo bez skrytých.
Pokud zkopírovaný rozsah obsahuje vzorce, můžete zkopírovat pouze hodnoty buněk, abyste se vyhnuli přemístění reference, tj. Při vkládání hodnot nebudou vloženy vzorce, ale výsledek jejich výpočtu. Nebo pokud je nutné zachovat formáty buněk, do kterých dochází k vkládání, budou zkopírovány a vloženy pouze hodnoty buněk. Chcete-li to provést, musíte nahradit řádek v kódu (v souboru níže):

rCell.Copy rResCell.Offset(lr, lc)

rCell.Copy rResCell.Offset(lr, lc)

k tomuto:

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

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

Oba tyto řádky jsou přítomny v souboru níže, stačí ponechat ten, který je pro vaše úkoly vhodnější.

Stáhnout příklad:

(54,5 kB, 7 928 stažení)


Viz také:
[]

Pomohl článek? Sdílejte odkaz se svými přáteli! Video lekce

("Spodní lišta":("textstyle":"static","textpositionstatic":"bottom","textautohide":true,"textpositionmarginstatic":0,"textpositiondynamic":"bottomleft","textpositionmarginleft":24," textpositionmarginright":24,"textpositionmargintop":24,"textpositionmarginbottom":24,"texteffect":"slide","texteffecteasing":"easeOutCubic","texteffectduration":600,"texteffectslidedirection":"left","texteffectslidedistance" :30,"texteffectdelay":500,"texteffectseparate":false,"texteffect1":"slide","texteffectslidedirection1":"right","texteffectslidedistance1":120,"texteffecteasing1":"easeOutCubic","texteffectduration1":600 ,"texteffectdelay1":1000,"texteffect2":"slide","texteffectslidedirection2":"right","texteffectslidedistance2":120,"texteffecteasing2":"easeOutCubic","texteffectduration2":600,"texteffectdelay2":150," textcss":"display:block; padding:12px; text-align:left;","textbgcss":"display:block; position:absolute; top:0px; left:0px; width:100%; height:100% ; barva pozadí:#333333; opacity:0.6; filter:alpha(opacity=60);","titlecss":"display:block; poloha:relativní; font:bold 14px \"Lucida Sans Unicode\",\"Lucida Grande\",sans-serif,Arial; color:#fff;","descriptioncss":"display:block; poloha:relativní; font:12px \"Lucida Sans Unicode\",\"Lucida Grande\",sans-serif,Arial; barva:#fff; margin-top:8px;","buttoncss":"display:block; poloha:relativní; margin-top:8px;","texteffectresponsive":true,"texteffectresponsivesize":640,"titlecssresponsive":"font-size:12px;","descriptioncssresponsive":"display:none !important;","buttoncssresponsive": "","addgooglefonts":false,"googlefonts":"","textleftrightpercentforstatic":40))

Pokud některé buňky, řádky nebo sloupce v listu nejsou viditelné, můžete zkopírovat všechny buňky (nebo pouze viditelné buňky). Ve výchozím nastavení Excel kopíruje nejen viditelné buňky, ale také skryté nebo filtrované buňky. Pokud chcete zkopírovat pouze viditelné buňky, postupujte podle následujících kroků. Můžete například zkopírovat pouze souhrnná data ze strukturovaného listu.

Postupujte podle níže uvedených kroků.

Poznámka: Při kopírování se hodnoty vkládají postupně do řádků a sloupců. Pokud oblast pro vložení obsahuje skryté řádky nebo sloupce, bude možná nutné je odkrýt, abyste viděli všechna zkopírovaná data.

Při kopírování a vkládání viditelné buňky v datovém rozsahu, který obsahuje skryté buňky nebo na které je použit filtr, můžete si všimnout, že skryté buňky jsou vloženy spolu s viditelnými buňkami. Toto nastavení bohužel nemůžete změnit při kopírování a vkládání rozsahu buněk v Excelu pro web, protože Vkládání pouze viditelných buněk není k dispozici.

Pokud však naformátujete data jako tabulku a použijete filtr, můžete zkopírovat a vložit pouze viditelné buňky.

Pokud nepotřebujete formátovat data jako tabulku a máte nainstalovanou klasiku aplikace Excel, můžete v něm otevřít sešit a zkopírovat a vložit viditelné buňky. Chcete-li to provést, klepněte na tlačítko Otevřít v Excelu a postupujte podle kroků v části Kopírování a vkládání pouze viditelných buněk.

dodatečné informace

Vždy můžete položit otázku specialistovi z komunity Excel Tech Community, požádat o pomoc v komunitě odpovědí a také navrhnout nová vlastnost nebo vylepšení webu

Výběr dat v Excelu byl proveden pomocí filtru nebo řazení. Nyní je třeba je vytisknout nebo přesunout na jiné místo. Zkopírujte do Excelu nakonfigurován tak, aby byly zkopírovány i skryté buňky.
Zvažme dva způsoby, Na Jak kopírovat filtrované řádky v Excelu.
První způsob.
Excel má skvělou funkci - Vložit speciální funkce v Excelu.
Takže máme stůl.
Jak nainstalovat filtr, viz článek " Filtr v Excelu ".
K odstranění všech Ivanovů ze seznamu používáme filtr. Dopadlo to takto.
Vyberte tabulku a v kontextové nabídce klikněte na „Kopírovat“. Klikněte levým tlačítkem na buňku A9 a v kontextové nabídce vyberte „hodnoty“.
Klikněte na "OK". Voila. Nejen hodnota byla zkopírována viditelné čáry, ale také formát buňky.
Je tu jedna nuance- vkládat filtrovaná data ne do řádků, kde je umístěn filtr. Například v našem příkladu - ne v řádcích 1-7, ale níže nebo na jiném listu atd. Pokud vložíme do řádků, kde se nachází filtr, pak se filtrovaná data vloží i do řádků skrytých filtrem. Obecně se to ukáže jako nepořádek. Druhý způsob.
Stůl je stejný. Vyberte tabulku s filtrovanými daty. Na kartě „Domů“ klikněte na část „Úpravy“. Najít a zvýraznit funkce v Excelu. Poté klikněte na tlačítko „Go“. V zobrazeném dialogovém okně klikněte na tlačítko „Vybrat...“. V okně „Vyberte skupinu buněk“ zaškrtněte políčko „pouze viditelné buňky“. Klikněte na "OK". Nyní na stejném vybraném stole pravou myší volání kontextová nabídka. Klikněte na funkci „Kopírovat“. V novém umístění (v našem příkladu je to buňka A15) klikněte na „Vložit“. Všechno. Dopadlo to takto.
Jak, bez kopírování, okamžitě vytisknout data filtru v excelu, viz článek „Záložka list Excelu"Rozvržení stránky""