VBA不使用循环如何用变量替代If语句列序号实现单元格同步赋值

原有代码问题说明 #

• If Cells(2,1).Select Then语法逻辑错误：Select是VBA中主动选中单元格的方法，不是判断单元格选中状态的属性，这类判断永远无法返回预期的布尔值结果。
• x = 1 to 10是For循环的语法片段，不能单独作为变量赋值语句使用；给数值类型变量传入字符串格式的数字会触发类型不匹配错误，无法正常运行。
• 数组存储列号的思路可行，但不需要逐行写冗长的判断分支，也完全不需要用到For/Next循环。

最优实现方案（符合无循环、命中即终止要求） #

你已经配置了单元格选中触发的Worksheet_SelectionChange事件，该事件自带Target参数，直接指向当前选中的单元格对象，不需要手动遍历1-10列做判断。
直接在对应工作表的代码模块写入以下代码即可实现需求：选中A1:J1区域任意单元格时，M1自动同步当前选中单元格的值，选中非目标区域时直接退出过程，无多余执行逻辑。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 选中区域不在A1:J1范围时直接终止过程
    If Intersect(Target, Me.Range("A1:J1")) Is Nothing Then Exit Sub
    ' 同步值到M1，兼容多选场景取第一个选中单元格的值
    Me.Range("M1").Value = Target.Cells(1).Value
End Sub

按变量替换列号思路的实现（非必要，仅匹配初始写法需求） #

如果你坚持显式用变量承载1-10的列序号、不使用循环结构，可通过数组存储列号+分支命中即跳转的方式实现，匹配你最初想替换列序号的写法要求：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim x As Variant
    ' 数组存储1-10的列序号
    x = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
    
    ' 逐分支判断，命中后赋值并跳转到过程末尾，不执行后续判断
    If Target.Column = x(0) Then
        Me.Range("M1").Value = Target.Value
        GoTo Finish
    ElseIf Target.Column = x(1) Then
        Me.Range("M1").Value = Target.Value
        GoTo Finish
    ElseIf Target.Column = x(2) Then
        Me.Range("M1").Value = Target.Value
        GoTo Finish
    ElseIf Target.Column = x(3) Then
        Me.Range("M1").Value = Target.Value
        GoTo Finish
    ElseIf Target.Column = x(4) Then
        Me.Range("M1").Value = Target.Value
        GoTo Finish
    ElseIf Target.Column = x(5) Then
        Me.Range("M1").Value = Target.Value
        GoTo Finish
    ElseIf Target.Column = x(6) Then
        Me.Range("M1").Value = Target.Value
        GoTo Finish
    ElseIf Target.Column = x(7) Then
        Me.Range("M1").Value = Target.Value
        GoTo Finish
    ElseIf Target.Column = x(8) Then
        Me.Range("M1").Value = Target.Value
        GoTo Finish
    ElseIf Target.Column = x(9) Then
        Me.Range("M1").Value = Target.Value
        GoTo Finish
    End If

Finish:
End Sub

注意事项 #

• 第一种Intersect判断的写法是生产环境的标准实现，代码简洁易维护，选中非目标区域时第一行就终止执行，完全满足无循环、命中即终止的要求。
• VBA中默认通过Array()函数创建的数组下标从0开始，第一个元素索引为0，直接取x(1)会拿到列号2，容易出现列匹配错误。
• 所有事件代码必须写入对应工作表的代码模块，写在标准模块里不会自动触发。

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