For fuldstændigt at overføre dataene fra det aktuelle celleområde til en ny tabel, skal du vide, hvor stort celleområdet der er omkring den aktive celle. Eller du kan lade Excel gøre dette for dig og kopiere g
Vil du automatisk kopiere alle celler fra et sammenhængende celleområde i en makro? Dette er især nyttigt, hvis du vil reagere fleksibelt på input fra brugere og ikke ved, hvor store de indtastede dataområder er.
Du kan bruge en makro til at udføre dette job. Makroen bestemmer alle celler omkring den aktive celle og kopierer nøjagtigt disse celler til en ny projektmappe.
Den følgende figur viser en tabel med tre forskellige dataområder. De er farvekodede for at gøre dem lettere at se.
Alle celler, der forbinder til naboceller uden tomme celler, anses for at høre sammen.
Med en passende makro kan du sikre, at alle celler, der tilhører den, kopieres til en ny tabel efter at have klikket på en celle i et celleområde. Her er den relevante programkode:
Underkopiering aktuelt område ()
Dim kildeareal som område
Dim NewSheet Som regneark
Angiv kildeområde = ActiveCell.CurrentRegion
Indstil NeuesBlatt = Workbooks.Add.Worksheets (1)
Kildeområde.Kopi destination: = NeuesBlatt.Range ("A1")
Afslut Sub
Inden du kalder makroen, skal du klikke på en vilkårlig celle i en tabel. Makroen bestemmer alle celler, der sammen med den markerede celle tilhører et område og kopierer dette dataområde til en ny, tom projektmappe. Den følgende figur viser, hvordan resultatet ser ud efter at have kaldt makroen, hvis celle E9 i tabellen fra det første tal er valgt, før makroen starter.
For at komme ind i makroen skal du trykke på ALT F11 i Excel for at åbne VBA -editoren. Vælg kommandoen INSERT - MODULE i VBA -editoren, og indtast makroen. For at starte makroen skal du aktivere tastekombinationen ALT F8 i Excel. De to tastaturgenveje til start af VBA -editor og makro fungerer i alle versioner af Excel.
