Możesz użyć makra, aby skopiować dane z jednego arkusza programu Excel do innego arkusza w tym samym skoroszycie
Czy chcesz przenieść zawartość obszaru z jednego arkusza do drugiego? Jest to łatwe dzięki interaktywnemu użyciu programu Excel. Ale jak wykonujesz pracę z makrem? Zbuduj pętlę, która iteruje przez wszystkie komórki, które chcesz skopiować. Tak wygląda makro:
Obszar kopii pomocniczej ()
Dim Quelltab jako arkusz roboczy
Zakładka Przyciemnij cel jako arkusz
Przyciemnij komórkę jako zakres
Licznik przyciemnienia tak długo
Licznik = 1
Zakres = "A1: A10"
Ustaw kartę źródłową = ActiveWorkbook.Worksheets ("Tabela1")
Ustaw kartę docelową = ActiveWorkbook.Worksheets ("Tabela2")
Dla każdej komórki w SourceTab.Range ("A1: A10")
Tabela docelowa Komórki (licznik, 1) = komórka
Licznik = licznik + 1
Następna komórka
Napis końcowy
W definicji zmiennej „Source tab” określasz nazwę tabeli źródłowej w skoroszycie. To jest arkusz, z którego chcesz skopiować dane. W makrze jest to arkusz „Tabela1”.
Użyj tagu „Target tab”, aby zdefiniować nazwę arkusza, do którego chcesz skopiować dane.
Obszar A1: A10 jest kopiowany w makrze. Jeśli chcesz użyć innego obszaru, odpowiednio dostosuj makro.
Używasz znacznika "Counter" do kontrolowania wiersza w tabeli docelowej, w którym ma się rozpocząć wstawianie komórek. Dane są kopiowane jeden pod drugim w komórkach
Aby wprowadzić makro, naciśnij ALT F11 w programie Excel, aby wywołać edytor VBA. Użyj polecenia WSTAW - MODUŁ, aby wstawić pusty arkusz modułu. Aby uruchomić makro bezpośrednio z programu Excel, użyj kombinacji klawiszy ALT F8.
Skopiuj cały arkusz w skoroszycie
Masz również możliwość skopiowania całego arkusza w skoroszycie za pomocą makra. Aby skopiować aktywny arkusz bieżącego skoroszytu na koniec skoroszytu, użyj następującego makra:
SubKopiujAktywnaTabela ()
ActiveSheet.Copy After: = Arkusze (Worksheets.Count)
Napis końcowy
Po uruchomieniu makra arkusz jest dodawany do aktywnego skoroszytu. Jest to kopia arkusza roboczego, który był aktywny podczas wywołania makra. Aby odróżnić dwa arkusze od siebie, Excel tworzy kolejny numer za skopiowanym arkuszem. Poniższy rysunek pokazuje, jak to wygląda w rejestrze tabeli po skopiowaniu arkusza „Sprzedaż”:
