Mam skoroszyt Excel, w którym zdefiniowano dużą liczbę nazwanych zakresów. Chciałby skopiować nazwy zakresów i ich definicje do innego już istniejącego skoroszytu. Czy jest jakaś możliwość zautomatyzowania tego zadania aby nie definiować ręcznie w każdym skoroszycie tych samych zakresów?
Mała pętelka w VBA powinna pomóc - uruchom z poziomu docelowego skoroszytu, źródłowy musi być otwarty:
Sub copy_ranges()
Dim n As Name
For Each n In Workbooks("skoroszyt źródłowy.xlsx").Names
ThisWorkbook.Names.Add Name:=n.Name, RefersTo:=n.RefersTo
Next
End Sub
A może łatwiej byłoby zrobić kopię oryginału i wyczyścić ją z danych?
