ＶＢＡ ＮＡＭＥ定義使用方法

質問

こんにちは
あるサンプルを元に下記を作ったのですが、
.Worksheet.Cells(ia, 0) = 1
の部分で、１セルのみに値を入れたいのですが、
1004エラーが発生してしまいうまく動かすことが出来ません
.Offset(ia, 0).Value =　1
とすれば値が入るのですが、strName1の名前定義範囲で
Ａ１～Ｂ１と２セルを指定しているので
.Offsetだと二列に同じ値が入ってしまいました。
これを一列のみの値をいれる方法はないでしょうか。

Dim objName As Name
For ib = 0 To UBound(M_Sheetdy) - 1
Set objName = ActiveWorkbook.Names(strName1)
With objName.RefersToRange
.Worksheet.Range(strName1).Clear
For Each M_Member In vntMembers
.Worksheet.Cells(ia, 0) = 1
.Worksheet.Cells(ia, 1) = 2
ia = ia + 1
Next M_Member
End With
Next

回答No.1

n-jun · ベストアンサー

＞Ａ１～Ｂ１と２セルを指定しているので
＞.Offsetだと二列に同じ値が入ってしまいました。
Ａ１～Ｂ１に名前定義で"aaa"とします。

Sub try()
Range("aaa").Item(1).Value = 1
Range("aaa").Item(2).Value = 2
End Sub
でそれぞれ別の値を入れられましたけど。
そう言う事ではなくて？