Excel VBA静的範囲から動的にコンボボックスリストを変更する

Question

これはかなりシンプルなはずですが、私は苦労しています。 は今のところ、このコードは動作します：

cboCategoryEdit1.List = Sheets(2).Range("A2:A40").Value 

私はコンボボックスの人口がどのように変更することで、私のプロジェクトを「クリーンアップ」しようとしています。私はそれが人口の多い細胞だけを取る範囲のコンボボックスであることを望みます。意味私は最後の行の関数を使用する必要があります。私はこのコードを変更し、 "メソッドまたはデータメンバーが見つかりません"というエラーが表示されます。ここに問題コードがあります：

Dim i As Range 
With Sheets("xRef-Categories") 
    Set i = .Range("A2:A" & .Range("A" & .Rows.Count).End(xlUp).Row) 
End With 
Me.cboCategoryEdit1.ListFillRange = i.Address 

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

ところで：Sheet2のは、 "外部参照-カテゴリー" である

Answer 1

あなたは、単にこれを必要と...

With Sheets("xRef-Categories") 
    Me.cboCategoryEdit1.List = .Range("A2:A" & .Range("A" & .Rows.Count).End(xlUp).Row).Value 
End With 

Answer 2

あなたはこのようにそれを簡素化することができます。

With Sheets("xRef-Categories") 
    Me.cboCategoryEdit1.List = .Range("A2" , .Range("A" & .Rows.Count).End(xlUp)).Value 
End With