以下の移動データを持つ動的名前付き範囲

Question

データ検証リストに使用できる動的名前付き範囲を作成しようとしています。私はこれらのすべての時間を使用しますが、この場合、範囲内でカウントできない範囲の下に格納されている情報があります。また、私はこの範囲内の行を挿入する必要があるマクロを持っています。

他に何も列になかった場合、私は通常、このようなものを使用します。= OFFSET（$ A $ 1,0,0、COUNTA（$のA：$のA）、1）

私はこれを起動する必要があります私が使用したページのように少し下に1つ： = OFFSET（$ A $ 24,0,0、COUNTA（$ A $ 24：$ A24）、1）

通知前に "$"を削除しましたそれに応じて拡大することを期待している式では "24"ですが、それは一貫していないようです。

基本的に、COUNTAの範囲は、常に伸び縮みする細胞の範囲だけを含む必要があります。

私はVBAでは悪くないし、ある範囲のセルをループして値が特定のテキスト文字列と等しいセルに到達すると停止するようなソリューションを開いています（この場合は.Value = "Request 1"）。しかし、私はフォームやActiveXコントロールのフィードについて少し不安です。これは過去に表示および印刷機能で問題が発生したためです。

Answer 1

私は、簡単にダイナミック名前付き範囲を作成するために使用することができ、ブック内の他の場所の範囲を作成するために、次のコードを使用する：

Sub UpdateEntities() 

Dim i As Long, x As Long 

i = 24 
x = 1 

Sheets("Values").Range("AH:AH").ClearContents 

Do While Cells(i, 1).Value <> "REQUEST 1" 

Cells(i, 1).Select 

If ActiveCell.Value <> "" Then 
Sheets("Values").Cells(x, 34).Value = ActiveCell.Value 
i = i + 1 
x = x + 1 
Else 
i = i + 1 
End If 

Loop 

End Sub 

を