如何用VBA粘贴值而不覆盖目标工作表中的现有公式？

原代码的问题在于：

• 复制范围过大：Resize(1, 66)会一次性复制66列内容，直接覆盖Sheet11对应行的所有单元格（包括G、K列的公式）
• 直接复制粘贴会覆盖目标单元格的所有属性（格式、公式等），而非仅替换值

以下是修改后的代码，可实现仅将Sheet9中BO-BT列的6个单元格的值粘贴到Sheet11的A-F列指定位置，且不干扰其他单元格：

Sub CopyMarketMakes()
    Dim StatusCol As Range
    Dim Status As Range
    Dim PasteCell As Range

    ' 指定要检查的状态列（Sheet9的BT2:BT14）
    Set StatusCol = Sheet9.Range("bt2:bt14")

    For Each Status In StatusCol
        ' 确定Sheet11的粘贴起始单元格
        If Sheet11.Range("A11") = "" Then
            Set PasteCell = Sheet11.Range("A11")
        Else
            Set PasteCell = Sheet11.Range("A10").End(xlDown).Offset(1, 0)
        End If

        ' 当状态为"m"时，仅复制BO-BT列的6个单元格的值到Sheet11的A-F列
        If Status = "m" Then
            ' 复制Sheet9当前行的BO-BT列（共6列）
            Status.Offset(0, -5).Resize(1, 6).Copy
            ' 仅粘贴值到目标区域，避免覆盖公式和格式
            PasteCell.Resize(1, 6).PasteSpecial xlPasteValues
            ' 清除剪贴板，避免后续误操作
            Application.CutCopyMode = False
        End If
    Next Status
End Sub

关键改动说明： #

• 缩小复制范围：将Resize(1, 66)改为Resize(1, 6)，只选取Sheet9中BO到BT的6列数据（BT列往左偏移5列即为BO列，对应Offset(0, -5)）
• 仅粘贴值：使用PasteSpecial xlPasteValues替代直接粘贴，只替换目标单元格的数值，保留原有公式、格式等属性
• 明确目标区域：通过PasteCell.Resize(1, 6)指定粘贴到Sheet11的A-F列，确保不会影响其他列的内容

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