初次编写Excel宏：如何实现复制单元格值而非公式？

嗨，我来帮你搞定这个问题！先梳理下你现有代码里的小问题，再针对性解决复制值的核心需求：

首先修正代码里的冗余问题 #

你当前代码里先后执行了 Workbooks.Open Filename:=file 和 Set wb2 = Workbooks.Open(file)，这会导致同一个文件被重复打开，既浪费资源还可能触发错误，咱们先把这个优化掉。

核心解决方案：只复制单元格值而非公式 #

默认的Copy方法会复制单元格的所有属性（包括公式、格式、批注等），要只提取值，有两种常用且高效的方式：

方式1：用PasteSpecial粘贴值（保留复制操作逻辑） #

这种方式直观，先复制目标区域，再指定粘贴值类型：

Sub CopyData()
 Dim Wb1 As Workbook, wb2 As Workbook, file As String
 file = Application.GetOpenFilename _
 (Title:="Please choose a file to open", _
 FileFilter:="Excel Files *.xls* (*.xls*),")
 
 ' 处理用户取消选择文件的情况，避免报错
 If file = "False" Then Exit Sub
 
 Range("A1").Value = file
 
 ' 仅打开一次目标文件
 Set wb2 = Workbooks.Open(file)
 Set Wb1 = ThisWorkbook
 
 ' 复制目标区域，粘贴时仅保留值
 wb2.Sheets("Questions").Range("C9:C200").Copy
 Wb1.Sheets(1).Range("D1").PasteSpecial Paste:=xlPasteValues
 
 ' 清除剪贴板，避免后续弹窗提示
 Application.CutCopyMode = False
End Sub

方式2：直接赋值（更高效，跳过剪贴板） #

如果不需要复制格式等额外属性，直接把单元格的值赋值过去是最优解，完全不用依赖剪贴板：

Sub CopyData()
 Dim Wb1 As Workbook, wb2 As Workbook, file As String
 file = Application.GetOpenFilename _
 (Title:="Please choose a file to open", _
 FileFilter:="Excel Files *.xls* (*.xls*),")
 
 If file = "False" Then Exit Sub
 
 Range("A1").Value = file
 
 Set wb2 = Workbooks.Open(file)
 Set Wb1 = ThisWorkbook
 
 ' 直接将值从源区域赋值到目标区域，一步到位
 Wb1.Sheets(1).Range("D1:D200").Value = wb2.Sheets("Questions").Range("C9:C200").Value
 
 ' 可选：如果不需要保留目标文件打开状态，可添加关闭代码
 ' wb2.Close SaveChanges:=False
End Sub

额外优化说明 #

• 增加了用户取消选择文件时的退出逻辑，避免代码因空路径报错
• 方式2的赋值法运行速度更快，也不会出现剪贴板被占用的情况

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