如何修改VBA宏实现仅粘贴数值（而非公式）？

下面提供两种可靠的修改方案，对应你提到的PasteSpecial和.Value两种方式：

方案一：使用PasteSpecial粘贴数值 #

这种方式基于剪贴板操作，逻辑直观，适合习惯复制粘贴流程的场景：

Sub CopyToPowerBI_Values()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim targetStartRow As Long
    Dim sourceRange As Range
    
    ' 定义工作表对象（根据实际表名修改）
    Set sourceSheet = ThisWorkbook.Sheets("Sheet1") ' 原数据所在工作表
    Set targetSheet = ThisWorkbook.Sheets("PowerBi") ' 目标工作表
    Set sourceRange = sourceSheet.Range("AG16:AG46") ' 要复制的源区域
    
    ' 根据AG14的值确定目标起始行（假设AG14的值匹配PowerBi表A列的内容）
    targetStartRow = targetSheet.Range("A:A").Find(sourceSheet.Range("AG14").Value).Row
    
    ' 复制源区域 -> 仅粘贴数值到目标区域
    sourceRange.Copy
    targetSheet.Range("B" & targetStartRow).PasteSpecial Paste:=xlPasteValues ' 目标起始单元格，会自动匹配源区域大小
    
    ' 清理剪贴板，避免弹窗提示
    Application.CutCopyMode = False
End Sub

关键修改点：把原来直接的Copy 目标区域拆分，先执行Copy，再通过PasteSpecial Paste:=xlPasteValues指定仅粘贴数值。

方案二：直接赋值.Value（更高效） #

这种方式跳过剪贴板，直接将源区域的数值赋值给目标区域，速度更快，适合大数据量场景：

Sub CopyToPowerBI_Values_Direct()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim targetStartRow As Long
    Dim sourceRange As Range
    Dim targetRange As Range
    
    ' 定义工作表对象（根据实际表名修改）
    Set sourceSheet = ThisWorkbook.Sheets("Sheet1")
    Set targetSheet = ThisWorkbook.Sheets("PowerBi")
    Set sourceRange = sourceSheet.Range("AG16:AG46")
    
    ' 根据AG14的值确定目标起始行
    targetStartRow = targetSheet.Range("A:A").Find(sourceSheet.Range("AG14").Value).Row
    
    ' 定义目标区域（和源区域大小一致）
    Set targetRange = targetSheet.Range("B" & targetStartRow & ":B" & targetStartRow + sourceRange.Rows.Count - 1)
    
    ' 直接赋值数值，跳过公式
    targetRange.Value = sourceRange.Value
End Sub

关键修改点：不需要复制操作，直接让目标区域的.Value属性等于源区域的.Value属性，自动忽略源区域的公式，仅保留计算后的数值。

注意事项 #

• 请根据你的实际工作表名称修改代码中的Sheet1和目标列（示例中用了B列，需替换成你要粘贴的指定列）
• 如果AG14的值在PowerBi表的A列可能不存在，建议加错误判断避免宏报错

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