如何将TXT文件导入带格式与公式的Excel工作表且保留原有设置

原代码执行后会覆盖目标工作表的格式和公式，核心原因是使用Copy方法直接复制单元格（含格式）到目标区域，替换了原有单元格的所有属性。要实现仅导入数据、保留原格式和公式，需修改为仅粘贴值的方式。

修改后的VBA代码 #

Sub Import()
    Dim fileToOpen As Variant
    Dim wsMaster As Worksheet
    Dim wbTextImport As Workbook
    Dim sourceRange As Range
    
    Application.ScreenUpdating = False
    
    ' 指定文件筛选规则
    fileToOpen = Application.GetOpenFilename("Text Files (*.txt; *.csv), *.txt; *.csv")
    
    If fileToOpen = False Then
        MsgBox "未选择文件"
        Exit Sub
    End If
    
    ' 打开TXT文件，从第6行开始读取分隔数据
    Workbooks.OpenText _
            Filename:=fileToOpen, _
            StartRow:=6, _
            DataType:=xlDelimited, _
            Tab:=True
            
    Set wbTextImport = ActiveWorkbook
    Set sourceRange = wbTextImport.Worksheets(1).Range("A6").CurrentRegion
    Set wsMaster = ThisWorkbook.ActiveSheet
    
    ' 仅粘贴源数据的值到目标区域，不覆盖原有格式和公式
    sourceRange.Copy
    wsMaster.Range("A6").PasteSpecial Paste:=xlPasteValues
    
    ' 释放剪贴板，避免后续操作干扰
    Application.CutCopyMode = False
    
    wbTextImport.Close False
    Application.ScreenUpdating = True
End Sub

关键改动说明 #

• 替换直接复制粘贴为PasteSpecial xlPasteValues：仅导入源文件的文本/数值内容，完全保留目标单元格原有的格式、公式等属性。
• 新增sourceRange变量：明确源数据范围，提升代码可读性。
• 添加Application.CutCopyMode = False：清理剪贴板状态，避免Excel界面残留复制提示。

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