Aby całkowicie przenieść dane z bieżącego zakresu komórek do nowej tabeli, musisz wiedzieć, jak duży jest zakres używanych komórek wokół aktywnej komórki. Możesz też pozwolić programowi Excel zrobić to za Ciebie i skopiować g
Czy chcesz automatycznie skopiować wszystkie komórki z ciągłego zakresu komórek w makrze? Jest to szczególnie przydatne, jeśli chcesz elastycznie reagować na dane wprowadzane przez użytkowników i nie wiesz, jak duże są wprowadzane obszary danych.
Do wykonania tej pracy możesz użyć makra. Makro określa wszystkie komórki wokół aktywnej komórki i kopiuje dokładnie te komórki do nowego skoroszytu.
Poniższy rysunek przedstawia tabelę z trzema różnymi obszarami danych. Są oznaczone kolorami, aby były lepiej widoczne.
Wszystkie komórki, które łączą się z sąsiednimi komórkami bez pustych komórek, uważa się za należące do siebie.
Za pomocą odpowiedniego makra możesz zapewnić, że po kliknięciu komórki w zakresie komórek, wszystkie należące do niej komórki zostaną skopiowane do nowej tabeli. Oto odpowiedni kod programu:
Sub-kopia aktualny obszar ()
Przyciemnij obszar źródłowy jako zakres
Dim NewSheet As Worksheet
Ustaw obszar źródłowy = ActiveCell.CurrentRegion
Ustaw NeuesBlatt = Workbooks.Add.Worksheets (1)
Obszar źródłowy.Kopiuj miejsce docelowe: = NeuesBlatt.Range ("A1")
Napis końcowy
Przed wywołaniem makra kliknij dowolną komórkę w tabeli. Makro określa wszystkie komórki, które wraz z wybraną komórką należą do zakresu i kopiuje ten zakres danych do nowego, pustego skoroszytu. Poniższy rysunek pokazuje, jak wygląda wynik po wywołaniu makra, jeśli przed uruchomieniem makra zaznaczono komórkę E9 w tabeli z pierwszego rysunku.
Aby wprowadzić makro, naciśnij ALT F11 w programie Excel, aby wywołać edytor VBA. Wybierz polecenie WSTAW - MODUŁ w edytorze VBA i wprowadź makro. Aby uruchomić makro, aktywuj kombinację klawiszy ALT F8 w programie Excel. Dwa skróty klawiaturowe do uruchamiania edytora VBA i makra działają we wszystkich wersjach programu Excel.
