如何修改Excel VBA代码将指定单元格区域导出为值到新工作簿？

核心问题原因 #

你之前的写法大概率是直接对原工作表的B3:H77区域执行了「将公式转为值」的操作（比如写了Range("B3:H77").Value = Range("B3:H77").Value），这才会把原表的VLOOKUP等公式删掉。正确的思路是只把目标区域的值复制到新工作簿，完全不触碰原工作表的内容。

具体代码修改点 #

假设你原来的导出整表代码类似下面的结构，需要做以下修改：

原导出整表的典型代码（参考）

Sub ExportWholeSheet()
    Dim newWB As Workbook
    Set newWB = Workbooks.Add
    ThisWorkbook.Sheets("Sheet1").Copy Before:=newWB.Sheets(1)
    ' 把新表里的内容转为值
    newWB.Sheets("Sheet1").UsedRange.Value = newWB.Sheets("Sheet1").UsedRange.Value
    ' 保存逻辑
    ' newWB.SaveAs "路径\文件名.xlsx"
End Sub

修改为导出指定区域的代码

Sub ExportB3H77AsValues()
    Dim srcRange As Range
    Dim newWB As Workbook
    Dim destSheet As Worksheet
    
    ' 1. 定位原表的目标区域（只读取，不修改）
    Set srcRange = ThisWorkbook.Sheets("Sheet1").Range("B3:H77")
    
    ' 2. 新建空白工作簿
    Set newWB = Workbooks.Add
    Set destSheet = newWB.Sheets(1)
    
    ' 3. 把原区域的值传递到新表（两种写法二选一）
    ' 写法一：用复制粘贴（直观）
    srcRange.Copy
    destSheet.Range("A1").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False ' 清空剪贴板
    
    ' 写法二：直接赋值（更高效，不用剪贴板）
    ' destSheet.Range("A1").Resize(srcRange.Rows.Count, srcRange.Columns.Count).Value = srcRange.Value
    
    ' 4. 按需添加保存/关闭逻辑
    ' newWB.SaveAs "你要保存的路径\导出文件.xlsx"
    ' newWB.Close SaveChanges:=True
End Sub

关键修改要点 #

• 删掉所有直接修改原工作表区域内容的代码（比如原代码中如果有对ThisWorkbook.Sheets("Sheet1").Range(...)赋值的语句，必须移除）
• 新增对目标区域B3:H77的定位，仅读取该区域的值，传递到新工作簿的对应位置，全程不改动原表
• 新工作簿里的操作只针对新建的工作表，和原表完全隔离

内容的提问来源于stack exchange，提问作者VBA-Junior