Abyste mohli zcela přenést data z aktuálního rozsahu buněk do nové tabulky, potřebujete vědět, jak velký rozsah použitých buněk je kolem aktivní buňky. Nebo můžete nechat Excel, aby to udělal za vás, a zkopírovat g
Chcete automaticky zkopírovat všechny buňky ze souvislého rozsahu buněk v makru? To je zvláště užitečné, pokud chcete pružně reagovat na vstupy od uživatelů a nevíte, jak velké jsou zadané datové oblasti.
K provedení této úlohy můžete použít makro. Makro určuje všechny buňky kolem aktivní buňky a přesně tyto buňky zkopíruje do nového sešitu.
Následující obrázek ukazuje tabulku se třemi různými datovými oblastmi. Jsou barevně odlišeny, aby byly lépe viditelné.
Všechny buňky, které se připojují k sousedním buňkám bez prázdných buněk, jsou považovány za patřící k sobě.
Vhodným makrem můžete zajistit, že po kliknutí na buňku v oblasti buněk budou všechny buňky, které k ní patří, zkopírovány do nové tabulky. Zde je příslušný kód programu:
Aktuální oblast dílčí kopie ()
Ztlumit oblast zdroje jako rozsah
Dim NewSheet jako pracovní list
Nastavit zdrojovou oblast = ActiveCell.CurrentRegion
Nastavit NeuesBlatt = Workbooks.Add.Worksheets (1)
Zdrojová oblast.Copy Cíl: = NeuesBlatt.Range ("A1")
End Sub
Před voláním makra klikněte na libovolnou buňku v tabulce. Makro určuje všechny buňky, které společně s vybranou buňkou patří do rozsahu, a zkopíruje tento datový rozsah do nového prázdného sešitu. Následující obrázek ukazuje, jak vypadá výsledek po volání makra, pokud je před spuštěním makra vybrána buňka E9 v tabulce z prvního obrázku.
Chcete -li zadat makro, stisknutím klávesy ALT F11 v aplikaci Excel vyvolejte editor VBA. V editoru VBA vyberte příkaz VLOŽIT - MODUL a zadejte makro. Makro spustíte aktivací kombinace kláves ALT F8 v Excelu. Dvě klávesové zkratky pro spuštění editoru VBA a makra fungují ve všech verzích aplikace Excel.
