VBセル名で範囲を取得

Question

私のスクリプトの初期段階では、常に新しいセルを追加しているので、動的に列のセルの範囲を取得したいという問題に遭遇しました。私は列の名前で範囲を取得してみましたが、 "実行時エラー '1004'：アプリケーション定義またはオブジェクト定義エラー"というエラーが表示されます。私は間違った列名で範囲を理解しているかもしれません、なぜ誰が私はこのエラーが表示されます知っている？ここで

は、これまでの私のコードです：私はコラム、「サブシステム」の内容と第二を取得しようとしていますどこの最初の行を示し

Sub autoFill() 
Sheets("Unit #2").Range("SUBSYSTEM").Copy Destination:=Sheets("Test").Range("A1") 

Sheets("Unit #2").Range("B2:B38").Copy Destination:=Sheets("Test").Range("B1") 

End Sub 

は、私は固定でそれを行う方法を示し範囲は、動作します。

Answer 1

ユニット2のワークシートに移動し、列ヘッダーラベルセルをSUBSYSTEMで選択します。

[式]、[定義済みの名前]、[名前マネージャ]コマンドを選択します。開いたら、「新規」を選択します。

SUBSYSTEMを名前として使用してください。ワークブックのスコープとしてそのまま残しておき、参照先には次を使用します。

'for text values in the SUBSYSTEM column 
='Unit #2'!$Z$1:INDEX('Unit #2'!$Z:$Z, MATCH("zzz", 'Unit #2'!$Z:$Z)) 
'for number values in the SUBSYSTEM column 
='Unit #2'!$Z$1:INDEX('Unit #2'!$Z:$Z, MATCH(1e99, 'Unit #2'!$Z:$Z)) 

[OK]をクリックします。今すぐあなたのコードが動作するはずです。

あなたはZ（5ヶ所）の代わりに、実際のサブシステム列文字識別子を代用する必要があります注意してください。