För att helt överföra data från det aktuella cellintervallet till en ny tabell måste du veta hur stort cellintervallet som används är runt den aktiva cellen. Eller så kan du låta Excel göra detta åt dig och kopiera g
Vill du automatiskt kopiera alla celler från ett sammanhängande cellområde i ett makro? Detta är särskilt användbart om du vill reagera flexibelt på input från användare och inte vet hur stora dataområdena som anges.
Du kan använda ett makro för att utföra det här jobbet. Makrot bestämmer alla celler runt den aktiva cellen och kopierar exakt dessa celler till en ny arbetsbok.
Följande bild visar en tabell med tre olika dataområden. De är färgkodade för att göra dem lättare att se.
Alla celler som ansluter till angränsande celler utan tomma celler anses höra ihop.
Med ett lämpligt makro kan du se till att efter att ha klickat på en cell i ett cellintervall kopieras alla celler som tillhör den till en ny tabell. Här är lämplig programkod:
Aktuellt område för underkopia ()
Dim källområde som område
Dim NewSheet Som arbetsblad
Ange källområde = ActiveCell.CurrentRegion
Ange NeuesBlatt = Workbooks.Add.Worksheets (1)
Källa area.Copy Destination: = NeuesBlatt.Range ("A1")
Avsluta Sub
Klicka på valfri cell i en tabell innan du ringer till makrot. Makrot bestämmer alla celler som tillsammans med den markerade cellen tillhör ett område och kopierar detta dataintervall till en ny, tom arbetsbok. Följande bild visar hur resultatet ser ut efter att ha ringt makrot om cell E9 i tabellen från den första siffran väljs innan makrot startar.
För att gå in i makrot, tryck på ALT F11 i Excel för att öppna VBA -redigeraren. Välj kommandot INSERT - MODULE i VBA -redigeraren och ange makrot. För att starta makrot, aktivera tangentkombinationen ALT F8 i Excel. De två tangentbordsgenvägarna för att starta VBA -redigeraren och makrot fungerar i alla versioner av Excel.
