автозаполнение формула для имен ячеек в Excel

Question

В листе Excel со строками параметров и столбцами систем, как так:

 system1 system2 
height 58  65 
width  12  17 
weight  3  5 
...  .  . 
...  .  . 

Я ищу способ, чтобы использовать эти данные с осмысленными именами, такими как «height1» , "height2". Я могу назвать ячейки «height1» «height2» (Формулы-> Определить имя) и использовать его в ячейке = height1. Однако при автозаполнении путем перетаскивания уравнения вправо имя не изменяется на height2, и я остаюсь с тем же значением 58.

В принципе, я ищу то же поведение, что и перетаскивание автозаполнения = B2 в = B3, но со значимыми именами.

спасибо.

Answer 1

Вот макрос для обозначения их всех в вашей конвенции (не пробовал, но должно работать):

Sub NameThem() 
    Dim rng As Range 
    For i = 0 To 3 
     For j = 0 To 1 
      Set rng = Range("A1").Offset(1 + i, 1 + j) 
      Call ActiveWorkbook.Names.Add(rng.End(xlToLeft).Value & j, rng) 
     Next j 
    Next i 
End Sub