如何使下拉列表VBA代码适配多行（7、10、13等差序列行）

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 只处理单个单元格修改，多选时直接退出避免出错
    If Target.Cells.Count > 1 Then Exit Sub
    
    ' 匹配7、10、13...这类行：行号不小于7，且行号减7后能被3整除
    If Target.Row >= 7 And (Target.Row - 7) Mod 3 = 0 Then
        Dim selectedNa As Variant
        Dim selectedNum As Variant
        
        selectedNa = Target.Value
        ' 临时关闭事件触发，防止修改单元格值时反复触发本代码
        Application.EnableEvents = False
        
        selectedNum = Application.VLookup(selectedNa, ActiveSheet.Range("listrates1"), 2, False)
        If Not IsError(selectedNum) Then
            Target.Value = selectedNum
        End If
        
        ' 恢复事件触发，不影响其他功能
        Application.EnableEvents = True
    End If
End Sub

• 自动匹配目标行：把原代码固定判断第7行的逻辑，改成用(Target.Row -7) Mod 3 =0检测，只要是从7开始、每间隔3行的行（包括后续插入的符合该规律的新行），都会自动触发代码逻辑。
• 防多选错误：增加判断，若选中多个单元格修改则直接退出代码，避免批量操作时出现异常。
• 避免循环触发：修改单元格值会再次触发Worksheet_Change事件，因此先关闭事件再执行修改操作，完成后恢复事件触发，防止代码反复执行导致卡顿或错误。
• 变量显式声明：给用到的变量添加类型声明，减少隐式类型转换带来的潜在问题。

内容的提问来源于stack exchange，提问作者Mandig