Excelの列に名前を付けたい

Question

###困っていること
例えば、excelの3列目のデータの入っているセルのすべてに+1するとき、以下のように書いていました。

For i = 1 To Range("データ個数")
   Sheet1.Cells(i, 3) = Sheet1.Cells(i, 3) + 1
Next i

このコードの問題点は、列が列数に依存しているため、2行目に新たなデータを挿入した場合に以下のようにすべてのコードを置換する必要があります。

For i = 1 To Range("データ個数")
   Sheet1.Cells(i, 4) = Sheet1.Cells(i, 4) + 1
Next i

これはとても面倒なことで、新たな機能の追加を難しくしています。可能ならば以下のように書きたいのですが、それはできないようです。どなたか、列に名前を付けるいい方法をご存知の方はおられませんでしょうか。

For i = 1 To Range("データ個数")
   Sheet1.Cells(i, Range("データ列")) = Sheet1.Cells(i, Range("データ列")) + 1
Next i

Comments

[stdio]

特定の行に必ずあるなら、その文字列を探せば。。。

Answer 1

シートのどこかのセルにデータを変更する列番号を入力できるようにしたいように見えます。そうならば、データ列の名前付セルが設定されていれば、そのとおりに動作するように思います。

---

もし、表題通り、列自体に名前をつけたいのであれば、対象のセル(今回は)を選択して、数式バーの左にある名前ボックスに入力するだけです。もし、それをVBAで行うならばこうなります。

    ActiveWorkbook.Names.Add "なんとかでーた", "=$E:$E"

Comments

[makkuro]

回答ありがとうございました。
参考にさせていただきます(^^)/

Answer 2

行列が不確定数の場合は、データが挿入されたテーブルにおける最終行や最終列を
取得する関数がありますので、これを使えばいけるはずです。

MaxRow = Range("A1").End(xlDown).Row　'/行を取得/
MaxCol = Range("A1").End(xlToRight).Column'/列を取得/

Comments

[makkuro]

回答ありがとうございました。
使っていこうと思います(^^)/

Answer 3

記載のコードは純粋にCells()の使い方が間違っています。
Cells()の引数は整数1個、又は行番号を示す整数＆列番号を示す整数or文字列の2個しか受け付けません。
Range()プロパティの返り値はRange型のオブジェクトであり、整数でも文字列でもありません。

lazybones2000 さんの回答のように、ある一列に名前を付けているのであれば、
Sheet1.Cells(i, 3)をSheet1.Range("データ列").Item(i)とすれば良いです（範囲が一列全体でない場合は調整が必要です）。

（記載のコードは色々省略されていて怖いのでもう少し厳密にした方が良い気もします）

Comments

[makkuro]

.itemなんてものがあるんですね！
ありがとうございます
めんどくさくて省略を多用していますが、これからはなるべく省略せず書いてみようと思います

[imihito]

一例として
`Sheet1.Cells(i, Range("データ列"))`
上記のコードも「データ列」という名前のセルに「3」や「C」が入っていれば
`Sheet1.Cells(i, Range("データ列").Value)`で動くようになります。