如何用Excel VBA将N2单元格值复制到同列动态变化的所有单元格？

原代码存在的问题 #

• 错误引用AN列判断最后一行，实际需基于N列定位
• 复制目标单元格指向错误，应操作N列而非AN列
• Range(Lastrow).PasteSpecial.Values语法错误，PasteSpecial调用方式不符合VBA规范
• 多余的.Select操作，会降低代码效率并增加出错概率

修正后的VBA代码 #

Sub Copy_N2_To_All_N_Rows()
    Application.ScreenUpdating = False
    
    Dim ws As Worksheet
    Dim lastRowN As Long
    
    ' 指定目标工作表，避免使用Select
    Set ws = ThisWorkbook.Sheets("Meeting1")
    
    ' 获取N列最后一行（从列底向上查找第一个非空行）
    lastRowN = ws.Cells(ws.Rows.Count, "N").End(xlUp).Row
    
    ' 仅当N列行数大于2时执行赋值，避免无效操作
    If lastRowN > 2 Then
        ' 直接批量赋值，比复制粘贴更高效
        ws.Range("N3:N" & lastRowN).Value = ws.Range("N2").Value
    End If
    
    Application.ScreenUpdating = True
End Sub

代码说明 #

• 取消Select操作：直接通过工作表对象ws操作单元格，减少屏幕闪烁，提升代码稳定性
• 精准定位最后一行：通过ws.Cells(ws.Rows.Count, "N").End(xlUp).Row准确获取N列的最后一个非空行位置
• 高效赋值逻辑：跳过复制粘贴步骤，直接将N2的值批量写入目标区域，执行速度更快
• 边界判断：加入行数判断，避免N列仅存在N2一行时执行无效操作

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