テーブル内のすべての列の名前がexcel/vba

Question

Excelのスプレッドシートの各列のヘッダーの名前を付けようとしています。たとえば、列に "cat"というヘッダーがある場合は、その列の名前を "cat"にします。そうすれば、A：Aで列を指定するのではなく、式でcatを参照できます。

私はこれを1列でうまくやることができますが、私が多くの手順を実行しようとすると失敗します。ここに私のコードです。

Sub defineName() 

Dim numColumns As Long 
Range("A1").Select 
numColumns = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column 



Columns("A:A").Select 
For cat = 0 To numColumns 
    Selection.Offset(0, I).Select 
    ActiveWorkbook.Names.Add Name:=cat1, RefersToR1C1:="activesheet.cat1" 
Next cat 
End Sub 

イムかなり確信して私の問題は、この部分

Name:=cat1, RefersToR1C1:="activesheet.cat1" 

であり、私はそれだと思うようにそれが反復されていません。

私はほとんど

Name:=[cat]1, RefersToR1C1:="activesheet.[cat]1" 

私はことがしたいが、それはどちらか動作しません。誰かがアイデアを持っていますか？

Answer 1

上記の私の提案を参照してください。ただし、代替コードがあります。しかし、列全体の名前を付けることは非常に効率的ではないようです。トムの提案を見て、私はそれがより良いアプローチだと思う。

Sub defineName() 

Dim numColumns As Long, cat As Long 

numColumns = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column 

For cat = 1 To numColumns 
    Columns(cat).Name = Cells(1, cat) 
Next cat 

End Sub