Excel宏定制需求：插入复制单元格时按列区分粘贴值与公式

我之前一直在找懂Excel宏的大佬帮忙，本来还担心我要的功能可能实现不了。最开始我的需求是做一个宏，让我在执行「插入已复制单元格并下移」操作后自动粘贴为值，后来终于找ChatGPT问对了问题，得到了一个能正常运行的宏，先分享给大家参考：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    If Not Intersect(Target, Sh.Cells) Is Nothing Then
        If Application.CutCopyMode = xlCopy Then
            If Target.PasteSpecial(Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False) Then
                Application.CutCopyMode = False
            End If
        End If
    End If

    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

不过现在我发现这个宏满足不了全部需求了——有些单元格还得保留公式，比如定价成本相关的列。举个例子：我有一个标着「Standard Wands」的表格区域，截图里能看到这个区域的框选范围，我需要把A到E列的内容粘贴为值，但F到I列必须保留公式，不能转成值。

我的核心目标是把这部分数据复制粘贴到另一个工作表中：目标表的表头是「Item, Qty, Part#, Description, etc.」，希望粘贴后，物品的描述能根据零件号自动更新，但成本核算的列要保留公式不变。也就是说，粘贴到目标表时，A-E列（对应Item、Qty、Part#、Description等字段）是值（或能联动更新描述的内容），而F-I列（成本相关）保留公式，这样成本计算能自动运行，同时描述会随零件号变化。

（相关截图说明：

• Standard Wands 表格：表头为「Standard Wands」，框选的A-E列需粘贴为值，F-I列需保留公式
• 目标工作表：表头包含「Item, Qty, Part#, Description」等字段，需实现描述随零件号更新、成本公式保留）

备注：内容来源于stack exchange，提问作者Kevin Rodriguez