Excel VBA技术问题：新建行时无法下拉公式，求解决方案

你的代码问题在于插入新行后清空了AP到DW列的内容（包括公式），且仅针对AQ列做了填充，没有处理其他列的公式。以下是修改后的代码，实现将原行所有公式同步到新行：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If ActiveCell.Value = "Re-design " Then
        Dim rowToCopy As Long, insertRow As Long
        rowToCopy = ActiveCell.Row
        insertRow = rowToCopy + 1
        
        ' 复制原行到新插入行，公式会自动同步
        Rows(rowToCopy).Copy
        Rows(insertRow).Insert Shift:=xlDown
        Application.CutCopyMode = False ' 清除复制状态
        
        ' 给原行设置灰色背景
        Rows(rowToCopy).Interior.ColorIndex = 15
        
        ' 修改新行A列内容
        Range("A" & insertRow).Value = Range("A" & rowToCopy).Value & "/2"
        
        ' 如果需要清空新行AP到DW列的**值**（保留公式的话注释掉下面这行）
        ' Range("AP" & insertRow & ":DW" & insertRow).ClearContents
    End If
End Sub

关键修改说明： #

• 移除了原代码中针对AQ列的单独AutoFill操作，因为复制整行时已经将所有公式同步到新行，无需额外填充
• 简化了不必要的字符串变量定义，让代码更简洁
• 添加Application.CutCopyMode = False清除复制状态，避免Excel保留选中虚线框
• 注释了原有的清空AP到DW列的代码，如果你的需求是保留这些列的公式，就不要执行ClearContents；如果确实需要清空这些列的内容（包括公式），可以取消注释，但这样这些列的公式会被删除

如果只需要同步特定列的公式（而非整行），可以用以下方式替换复制整行的逻辑：

' 示例：同步B到Z列的公式到新行
Range("B" & rowToCopy & ":Z" & rowToCopy).AutoFill _
    Destination:=Range("B" & rowToCopy & ":Z" & insertRow), _
    Type:=xlFillDefault

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