VBA遍历文件夹时仅复制单元格值而非公式的技术求助

嘿，刚上手VBA就能搞定文件夹遍历的宏已经很厉害了！你遇到的公式引用问题真的是新手常踩的坑，不过解决起来超简单——只需要把复制粘贴的逻辑改成仅粘贴单元格值就行，我给你两种方案，你可以根据自己的情况选：

核心修改思路 #

原来的宏应该是直接用Copy+Paste的方式，这种会把公式、格式甚至数据验证都一起复制过来，导致引用错误。我们只需要把粘贴动作改成只粘贴值，或者直接跳过剪贴板，把源单元格的值直接赋值到汇总表。

方案1：使用PasteSpecial（直观易理解） #

这种方法是在粘贴时指定仅粘贴值，适合刚接触VBA的新手：

' 复制源文件的数据区域
SourceWorkbook.Sheets("Sheet1").Range("A1:Z" & LastRow).Copy
' 仅粘贴值到汇总表的目标位置
SummaryWorkbook.Sheets("汇总").Range("A" & NextRow).PasteSpecial Paste:=xlPasteValues
' 清除剪贴板，避免后续操作受影响
Application.CutCopyMode = False

方案2：直接赋值（更高效，推荐） #

这种方法不需要依赖剪贴板，直接把源单元格的值传递到目标区域，运行速度更快，也不会出现剪贴板残留的问题：

Dim SourceRange As Range
Dim TargetRange As Range

' 定义源数据区域（根据你的实际列范围调整）
Set SourceRange = SourceWorkbook.Sheets("Sheet1").Range("A1:Z" & LastRow)
' 定义目标区域，确保和源区域大小一致
Set TargetRange = SummaryWorkbook.Sheets("汇总").Range("A" & NextRow).Resize(SourceRange.Rows.Count, SourceRange.Columns.Count)
' 直接赋值，仅传递单元格值
TargetRange.Value = SourceRange.Value

完整修改后的宏示例 #

我把你的宏补全并修改好了，你只需要替换自己的文件夹路径和工作表名称就行：

Sub LoopThroughFolder()
    Dim MyFile As String
    Dim SourcePath As String
    Dim SummaryWorkbook As Workbook
    Dim SourceWorkbook As Workbook
    Dim NextRow As Long
    Dim LastRow As Long
    
    ' 替换成你的源文件夹路径
    SourcePath = "C:\Your\Folder\Path\"
    ' 遍历文件夹内的xlsx文件，可改成xls、xlsm等格式
    MyFile = Dir(SourcePath & "*.xlsx")
    
    ' 假设汇总表在当前宏所在的工作簿里
    Set SummaryWorkbook = ThisWorkbook
    ' 找到汇总表的下一个空行
    NextRow = SummaryWorkbook.Sheets("汇总").Cells(Rows.Count, "A").End(xlUp).Row + 1
    
    ' 关闭屏幕刷新和弹窗，提升运行速度
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    Do While MyFile <> ""
        ' 打开源文件
        Set SourceWorkbook = Workbooks.Open(SourcePath & MyFile)
        
        ' 获取源文件数据的最后一行（以A列为例）
        LastRow = SourceWorkbook.Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
        
        ' --- 这里用方案2的直接赋值，你也可以换成方案1的代码 ---
        Dim SourceRange As Range
        Set SourceRange = SourceWorkbook.Sheets("Sheet1").Range("A1:Z" & LastRow)
        SummaryWorkbook.Sheets("汇总").Range("A" & NextRow).Resize(SourceRange.Rows.Count, SourceRange.Columns.Count).Value = SourceRange.Value
        
        ' 更新下一个空行的位置
        NextRow = NextRow + LastRow
        
        ' 关闭源文件，不保存任何修改（避免误改源文件）
        SourceWorkbook.Close SaveChanges:=False
        
        ' 获取下一个文件
        MyFile = Dir
    Loop
    
    ' 恢复屏幕刷新和弹窗
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    
    MsgBox "文件汇总完成！", vbInformation
End Sub

注意事项 #

• 记得把SourcePath改成你实际的文件夹路径
• 确认源文件的工作表名称（比如代码里的Sheet1）和汇总表的名称（汇总）是否和你的文件一致
• 如果源文件的列范围不是A到Z，记得修改Range("A1:Z" & LastRow)里的列标识

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