Excel VBA：整表复制粘贴值致表格功能丢失的解决需求

方法1：VBA批量更新（推荐，一次性完成） #

通过VBA匹配源表与目标表的同名表格，仅更新表格内的数据值，完全保留目标表表格的筛选、公式、条件格式等功能，同时处理非表格区域的普通单元格。

Sub UpdateTablesAndCells()
    Dim srcSheet As Worksheet, destSheet As Worksheet
    Dim srcTable As ListObject, destTable As ListObject
    Dim nonTableRange As Range
    
    ' 替换为你的源表和目标表名称
    Set srcSheet = ThisWorkbook.Sheets("SourceSheet")
    Set destSheet = ThisWorkbook.Sheets("TargetSheet")
    
    ' 1. 更新同名表格的数据
    For Each srcTable In srcSheet.ListObjects
        ' 查找目标表中同名的表格
        On Error Resume Next
        Set destTable = destSheet.ListObjects(srcTable.Name)
        On Error GoTo 0
        
        If Not destTable Is Nothing Then
            ' 仅复制表格数据区域的值，保留目标表结构
            srcTable.DataBodyRange.Copy
            destTable.DataBodyRange.PasteSpecial Paste:=xlPasteValues
            Application.CutCopyMode = False
        End If
    Next srcTable
    
    ' 2. 处理非表格区域的普通单元格
    Set nonTableRange = srcSheet.UsedRange
    ' 排除源表中的所有表格区域
    For Each srcTable In srcSheet.ListObjects
        Set nonTableRange = Application.Intersect(nonTableRange, srcTable.Range.EntireRow).Offset(0, 0).Resize(, srcSheet.UsedRange.Columns.Count)
        Set nonTableRange = Application.Union(nonTableRange, srcTable.Range)
    Next
    Set nonTableRange = srcSheet.UsedRange.SpecialCells(xlCellTypeVisible)
    
    If Not nonTableRange Is Nothing Then
        ' 直接赋值更新非表格区域的值
        destSheet.Range(nonTableRange.Address).Value = nonTableRange.Value2
    End If
End Sub

代码说明 #

• 优先处理表格：通过名称匹配源表和目标表的表格，只更新数据内容，不修改目标表的表格结构和功能。
• 批量处理非表格区域：自动排除源表的表格区域，仅更新普通单元格的值，避免破坏目标表的格式和功能。

方法2：手动半自动化操作 #

如果不依赖VBA，可按以下步骤快速完成：

• 表格区域：在源表选中单个表格的数据区域（不含表头），复制后在目标表对应表格的数据区域右键选择粘贴值，重复此操作直到所有表格更新完成。
• 非表格区域：选中源表所有非表格单元格（可通过Ctrl+G定位条件选择「常量」或「公式」），复制后在目标表对应区域粘贴值。

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