Makron avulla voit kopioida tietoja yhdestä Excel -laskentataulukosta toiseen saman työkirjan taulukkoon
Haluatko siirtää alueen sisällön laskentataulukosta toiseen? Se on helppo tehdä Excelin interaktiivisella käytöllä. Mutta miten teet työn makron kanssa? Luo silmukka, joka iteroi kaikkien kopioitavien solujen läpi. Makro näyttää tältä:
Alikopioalue ()
Dim Quelltab laskentataulukkona
Himmennä kohde -välilehti laskentataulukkona
Dim -solun alue
Himmennyslaskuri yhtä pitkä
Laskuri = 1
Alue = "A1: A10"
Aseta lähde -välilehti = ActiveWorkbook.Worksheets ("Taulukko1")
Aseta kohde -välilehti = ActiveWorkbook.Worksheets ("Table2")
Jokaiselle SourceTab.Range -solulle ("A1: A10")
Kohdetaulukko Solut (laskuri, 1) = solu
Laskuri = laskuri + 1
Seuraava solu
End Sub
Määritä "Lähde -välilehti" -muuttujan määritelmässä työkirjan lähdetaulukon nimi. Tämä on laskentataulukko, josta haluat kopioida tiedot. Makrossa se on taulukko "Taulukko 1".
Määritä Kohde -välilehti -tunnisteella sen laskentataulukon nimi, johon haluat kopioida tiedot.
Alue A1: A10 kopioidaan makrossa. Jos haluat käyttää eri aluetta, säädä makro vastaavasti.
"Laskuri" -tagin avulla voit hallita kohdetaulukon riviä, jossa solujen lisäys on aloitettava. Tiedot kopioidaan soluissa peräkkäin
Siirry makroon painamalla ALT F11 Excelissä avataksesi VBA -editorin. Lisää INSERT - MODULE -komennolla tyhjä moduulilehti. Voit käynnistää makron suoraan Excelistä käyttämällä näppäinyhdistelmää ALT F8.
Kopioi koko laskentataulukko työkirjasta
Voit myös kopioida työkirjan koko laskentataulukon makron avulla. Voit kopioida nykyisen työkirjan aktiivisen taulukon työkirjan loppuun käyttämällä seuraavaa makroa:
Sub CopyActiveTable ()
ActiveSheet.Copy After: = Laskentataulukot (Worksheets.Count)
End Sub
Makron aloittamisen jälkeen laskentataulukko lisätään aktiiviseen työkirjaan. Tämä on laskentataulukon kopio, joka oli aktiivinen makron kutsutessa. Jotta nämä kaksi laskentataulukkoa voidaan erottaa toisistaan, Excel luo kopioidun laskentataulukon taakse peräkkäisen numeron. Seuraavassa kuvassa näkyy, miltä tämä näyttää taulukkorekisterissä, kun "Myynti" -arkki on kopioitu:
