VBA复制合并单元格至其他工作表，删除原单元格后如何保留目标内容？

这个问题的核心原因是你当前的代码是直接复制单元格对象到目标位置，这种操作会让目标区域和源区域保持隐性关联（复制的是单元格完整结构，而非独立的内容），所以当源单元格被删除时，目标区域的内容也会跟着清空。

要让Sheet2的内容在删除Sheet1原单元格后仍保留，你需要改为只复制单元格的内容和格式（而非单元格本身），下面是两种常用的实现方式：

方法1：使用PasteSpecial粘贴指定内容 #

这种方式可以灵活选择要粘贴的内容（比如值+格式、值+数字格式等），同时断开和源单元格的关联：

Sub baCopyNameOfHotel()
    '复制源合并单元格
    Sheet1.Range("A4:H4").Copy
    '粘贴值和格式（保留合并单元格结构）
    Sheet2.Range("A4").PasteSpecial Paste:=xlPasteAllUsingSourceTheme
    '清除复制状态，避免剪贴板残留内容
    Application.CutCopyMode = False
End Sub

如果只需要保留文本值和基础格式，也可以把xlPasteAllUsingSourceTheme换成xlPasteValuesAndNumberFormats。

方法2：直接赋值+单独复制格式 #

这种方式更灵活，分开处理内容和格式，适合精细化控制的场景：

Sub baCopyNameOfHotel()
    Dim sourceRange As Range
    '定义源区域
    Set sourceRange = Sheet1.Range("A4:H4")
    
    '1. 直接将源区域内容赋值到目标区域
    Sheet2.Range("A4").Resize(sourceRange.Rows.Count, sourceRange.Columns.Count).Value = sourceRange.Value
    
    '2. 复制源区域的格式（包括合并单元格设置）
    sourceRange.Copy
    Sheet2.Range("A4").PasteSpecial Paste:=xlPasteFormats
    
    '清除复制状态
    Application.CutCopyMode = False
End Sub

两种方法都能让Sheet2的内容完全独立于Sheet1的原单元格，之后你再删除Sheet1中的A4:H4合并单元格，Sheet2的内容会完整保留。

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