如何将Excel特定列的值（而非公式）复制到另一个Excel文件？

嘿，我懂你的困扰——复制带公式的Q列时，结果把公式也带过去了，但你只想要计算后的数值对吧？这是因为默认的Copy/Paste操作会复制单元格的全部内容（包括公式、格式等），咱们只需要调整粘贴的方式，用PasteSpecial方法指定只粘贴值就可以搞定。

修改后的完整VBA代码 #

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True

Set objWorkbook = objExcel.Workbooks.Open("C:\A.xls")
Set objWorkbook2 = objExcel.Workbooks.Open("C:\C.xls")

Set objWorksheet = objWorkbook.Worksheets(1)
Set objWorksheet2 = objWorkbook2.Worksheets(1)

' 复制A:B列并仅粘贴值到目标文件的A1起始位置
objWorksheet.Columns("A:B").EntireColumn.Copy
objWorksheet2.Range("A1").PasteSpecial Paste:=xlPasteValues ' 关键：指定仅粘贴值

' 复制Q列并仅粘贴值到目标文件的C1起始位置
objWorksheet.Columns("Q").EntireColumn.Copy
objWorksheet2.Range("C1").PasteSpecial Paste:=xlPasteValues ' 同样使用PasteSpecial控制粘贴内容

' 清除剪贴板状态，避免Excel弹出冗余提示
objExcel.Application.CutCopyMode = False

objWorkbook2.Save
objWorkbook2.Close
objWorkbook.Close ' 别忘了关闭源文件
objExcel.Quit ' 退出Excel应用程序

关键细节说明 #

• PasteSpecial Paste:=xlPasteValues：这个参数是核心，它告诉Excel只粘贴单元格的计算结果值，完全忽略原单元格中的公式。
• 如果需要同时保留数值和单元格格式（比如数字格式、对齐方式），可以把参数改成xlPasteValuesAndNumberFormats，兼顾值和格式。
• 原代码里的objWorksheet.Activate调用其实是冗余的——VBA操作工作表不需要先激活，直接通过对象引用操作更高效，我已经帮你去掉了这些步骤。

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