Tony: 正解ですが、次のステップは、次のことを助長することを避けることです: a) DRY 原則の違反 (したがって、a.1) エラーの可能性とそれらを修正するためのコスト、および a.2) 潜在的な将来の変更/拡張のコスト)重複コードを減らすために「リファクタリング」する方法を示すことによって「コピー＆ペースト」プログラミングを奨励しない、および b) ハードコードされたリテラル (「マジック」「数値」/「文字列」) 定数を宣言および使用することにより、コンパイラ エラーを発生させずにミスタイプするのははるかに困難です。 コピーして貼り付けた XNUMX つのコード ブロック間で異なるのは、列番号と範囲名だけです。可能な限り、他のすべてを複製しないでください。代わりに、コードは次のようにする必要があります。

' -- 注: グローバル宣言モジュールで「EmptyString」を宣言します。
Public Const EmptyString as String = ""

' -- 列番号。 注: 実際には、"Col5Header" は "ProductID" のようになり、"Col9Header" は "SalesID" のようになります。
Private Const Col5HeaderColumnNumber As Integer = 5
Private Const Col9HeaderColumnNumber As Integer = 9

' -- 列のドロップダウン リストの範囲名
Private Const Col5HeaderDropDownRangeName as String = "col5HeaderDropDownRangeName"
Private Const Col9HeaderDropDownRangeName as String = "col9HeaderDropDownRangeName"

サブ Worksheet_Change _
（_
範囲としての ByVal ターゲット _
)

' -- BEGIN 該当する = 列について、ドロップダウン リストから選択した説明の ID を取得します。
薄暗い dropDownListRangeName を文字列として
dropDownListRangeName = EmptyString
ケースを選択 Target.Column
Case Col5HeaderColumnNumber
dropDownListRangeName = Col5HeaderDropDownRangeName
Case Col9HeaderColumnNumber
dropDownListRangeName = Col9HeaderDropDownRangeName
End Select ' -- ケース Target.Column
If (dropDownListRangeName <> EmptyString) その後
selectedId を文字列として暗くする
selectedId = Application.VLookup(selectedNa, ActiveSheet.Range(dropDownListRangeName), 2, False)
If Not IsError(selectedId) Then
Target.Value = selectedId
End If ' -- Not IsError(selectedId)
End If ' -- (dropDownListRangeName <> EmptyString)
-- END 該当する = 列について、ドロップダウン リストから選択した説明の ID を取得します。

End Subの