1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | Вариант code: #vba For Each iName In ThisWorkbook . Names Cells(iName . Index, 1 ).Value = iName . Name Cells(iName . Index, 2 ).Value = "'" & iName . RefersToLocal Next Вариант code: #vba With ThisWorkbook . Names For iCount = 1 To .Count Cells(iCount, 1 ).Value = .Item(iCount).Name Cells(iCount, 2 ).Value = "'" & .Item(iCount).RefersToLocal Next End With Bonus code: #vba For Each iName In ThisWorkbook . Names With iName iIndex = .Index + 1 Cells(iIndex, 1 ).Value = .Name Cells(iIndex, 2 ).Value = .Parent . Name Cells(iIndex, 3 ).Value = TypeName(.Parent) Cells(iIndex, 4 ).Value = "'" & .RefersTo Cells(iIndex, 5 ).Value = "'" & .RefersToLocal Cells(iIndex, 6 ).Value = .Visible End With Next With Range(Cells( 1 , 1 ), Cells( 1 , 6 )) 'Range("A1:F1") .Value = Array ("Name", "Parent", "NameLevel", _ "RefersTo", "RefersToLocal", "Visible") .Font . Bold = True .EntireColumn . AutoFit End With |