点击Excel AD列单元格时，仅为同行CA列单元格设公式的VBA问题

问题根源 #

原代码通过循环遍历整个CA列和B列的所有行，执行大量不必要的重复操作，这是导致Excel卡顿无响应的核心原因。我们只需要针对被点击的AD列单元格所在行进行操作即可。

修改后的代码 #

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim answer As Integer
    Dim targetRow As Long
    Dim lrou As Long
    
    ' 获取AD列最后一行行号（用于限定触发范围）
    lrou = Cells(Rows.Count, "AD").End(xlUp).Row
    
    ' 仅处理单个单元格选中且选中范围在AD3到AD最后一行的情况
    If Target.Count = 1 And Not Intersect(Target, Range("AD3:AD" & lrou)) Is Nothing Then
        targetRow = Target.Row
        
        ' 仅给当前选中行的CA单元格设置公式
        Range("CA" & targetRow).Formula = "=NominatimGeocode(M" & targetRow & ")"
        
        ' 检查当前行B列的状态，而非遍历整个B列
        Select Case Range("B" & targetRow).Value
            Case "Complete", "Cancelled"
                ' 状态为完成/取消时直接退出，不执行后续操作
                Exit Sub
            Case Else
                ' 弹出创建表单确认对话框
                answer = MsgBox("Do you want to create the Pre-Survey form?", vbQuestion + vbYesNo + vbDefaultButton2, "CST Tracker")
                If answer = vbYes Then
                    Call Pre_Surveyform
                End If
        End Select
    End If
End Sub

关键修改点 #

• 精准定位目标行：通过Target.Row获取被点击单元格的行号，直接给对应行的CA单元格设置公式，彻底取消遍历整个CA列的循环，避免无意义的重复计算。
• 简化状态检查逻辑：只检查当前行B列的值，不再遍历整个B列，避免多次弹出对话框的逻辑错误，同时减少不必要的循环操作。
• 优化最后一行获取方式：用Cells(Rows.Count, "AD").End(xlUp).Row更可靠地获取AD列的最后一行行号，替代原代码中依赖UsedRange的写法（UsedRange可能包含空白行，导致范围不准确）。

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