セルの値を参照して名前を定義する方法

質問

A列　　B列
a 　　 ああああ
b　　　いいいい
b　　　うううう
b　　　ええええ
c　　　おおおお
c　　　かかかか
d　　　きききき
d　　　くくくく
d　　　けけけけ
d　　　ここここ
d　　　ささささ

このような配列でデータが存在します。

A列の文字を名前にしてB列に名前を定義しようとしています。
例えばああああという文字列にaという名前を定義したいのです。
いいいい、うううう、ええええにはｂという名前を定義したいのです。

A列の同じデータの数が決まっていないので

Dim cnt As Long 'A列の同じ値の数
Dim tName As String 'A列の値

cnt = WorksheetFunction.CountIf(ActiveSheet.Range("A1:B500"), tName)

という関数を探してきたので、これでA列の同じ値のセルの数を取得しようと思います。

名前の定義はマクロを記録したところ・・・

ActiveWorkbook.Names.Add Name:="a", RefersToR1C1:="=Sheet1!R2C2:R2C2"

を得ました。

この後どのようにしてプログラムを組み立てたらいいでしょうか。
よろしくお願いします。

回答No.2

mt2008 · ベストアンサー

例の様にA列の文字が連続しているならこんな感じで可能です。
ただし、サンプルですのでエラー処理等は入れていません。
なお、名前定義に予約語は使えませんので「C」はNGです。エラーになります。

Sub Sample()
　　nRow1 = 1
　　nRow2 = 1
　　Do While Cells(nRow2, 1) <> ""
　　　　If Cells(nRow2, 1) <> Cells(nRow2 + 1, 1) Then
　　　　　　ActiveWorkbook.Names.Add Name:=Cells(nRow2, 1).Value, RefersToR1C1:="=R" & nRow1 & "C2:R" & nRow2 & "C2"
　　　　　　nRow1 = nRow2 + 1
　　　　End If
　　　　nRow2 = nRow2 + 1
　　Loop
End Sub

お礼

mt2008さん

早速の回答、ありがとうございました。

まさかこんなに早く回答がつくなんて、思ってもいませんでした。
しかも実装してみたところ、完璧でした。参照範囲もばっちりです。

こんなにシンプルできれいな構文でやりたいことが出来てしまうなんて、
思いもよりませんでした。私の考え方だったら、複雑で長い構文に
なっていたと思います。

本当に本当にありがとうございました。

回答No.1

FEX2053

それ以前の話として、一つのブック上に同一の名前のセル
（または範囲）は１つしか定義できませんが？

ですので、B2、B3、B4セルを、同じ「b」という名前で定義
出来ないですから、発想そのものを考え直す必要があります。

逆にB2:B4を「b」という名前にするなら、「中身が同じところまで
範囲を拡張する」という手順が必要になり、一筋縄じゃいかなく
なります。

補足

FEX2053さん

早速の回答、ありがとうございました。

その～、参照範囲がB2:B4の方なんです。
上級者の方でも一筋縄ではいかないなんて・・・

そこをなんとか・・・