托尼：正确，但下一步是避免鼓励：a）违反 DRY 原则（因此增加：a.1）错误的可能性和修复它们的成本以及 a.2）潜在的未来更改/增强的成本）不鼓励“复制粘贴”编程，展示如何“重构”以减少重复代码，以及 b）通过声明和使用命名常量来硬编码文字（“魔术”“数字”/“字符串”）常量在不触发编译器错误的情况下更难输入错误。 两个复制粘贴的代码块之间唯一不同的是列 #s 和范围名称，因此，其他所有内容都不应重复，因此代码应为：

' -- 注意：在全局声明模块中声明“EmptyString”。
Public Const EmptyString as String = ""

' - 列。 注意：在实践中，例如“Col5Header”将是例如“ProductID”，而“Col9Header”将是例如“SalesID”。
私人常量 Col5HeaderColumnNumber 作为整数 = 5
私人常量 Col9HeaderColumnNumber 作为整数 = 9

' -- 列的下拉列表的范围名称
私人常量 Col5HeaderDropDownRangeName as String = "col5HeaderDropDownRangeName"
私人常量 Col9HeaderDropDownRangeName as String = "col9HeaderDropDownRangeName"

子工作表_更改_
(_
ByVal 目标作为范围 _
)

' -- BEGIN 对于适用的 = 列，拉入从下拉列表中选择的描述的 ID。
将 dropDownListRangeName 变暗为字符串
dropDownListRangeName = EmptyString
选择案例目标.列
案例 Col5HeaderColumnNumber
dropDownListRangeName = Col5HeaderDropDownRangeName
案例 Col9HeaderColumnNumber
dropDownListRangeName = Col9HeaderDropDownRangeName
结束选择'-案例目标.列
If (dropDownListRangeName <> EmptyString) 那么
将 selectedId 调暗为字符串
selectedId = Application.VLookup(selectedNa, ActiveSheet.Range(dropDownListRangeName), 2, False)
如果不是 IsError(selectedId) 那么
Target.Value = selectedId
End If ' -- Not IsError(selectedId)
End If ' -- (dropDownListRangeName <> EmptyString)
-- END 对于适用的 = 列，为从下拉列表中选择的描述拉入 ID。

END SUB