复制操作中如何保留格式？附相关VBA代码片段

嘿，看你提供的VBA代码片段，应该是在处理工作表数据复制时遇到了格式丢失的问题吧？我给你整理几个靠谱的解决方案，帮你搞定格式保留的需求：

1. 用PasteSpecial精准控制粘贴（最常用） #

这是保留格式最稳妥的方式，你可以根据需求选择粘贴类型：

• xlPasteAll：保留所有内容和格式（包括公式、条件格式这些）
• xlPasteFormats：只粘贴格式，不复制内容

举个简单的例子：

' 复制源区域，然后粘贴所有内容和格式到目标位置
Sheets("源表").Range("A1:C20").Copy
Sheets("目标表").Range("A1").PasteSpecial Paste:=xlPasteAll
' 别忘了清除复制模式，释放剪贴板
Application.CutCopyMode = False

2. 直接复制到目标位置（简单高效） #

如果只是整段区域复制，直接用Copy加Destination参数，会自动把格式一起带过去，代码更简洁：

' 一步到位复制区域，自动保留格式
Sheets("源表").Range("A1:C20").Copy Destination:=Sheets("目标表").Range("A1")

3. 手动复刻格式（精细控制） #

要是你只需要复制部分格式（比如字体、背景色），可以逐个属性赋值，虽然繁琐但灵活性高：

Dim sourceCell As Range, targetCell As Range
Set sourceCell = Sheets("源表").Range("A1")
Set targetCell = Sheets("目标表").Range("A1")

' 复制字体相关格式
targetCell.Font = sourceCell.Font
' 复制单元格填充色
targetCell.Interior.Color = sourceCell.Interior.Color
' 复制边框格式
targetCell.Borders = sourceCell.Borders

结合你的代码给点建议 #

看你写的OBTENER·NUM·REG()子过程是在遍历工作簿里的工作表，要是你在这个过程中需要复制数据并保留格式，可以把复制逻辑换成上面的方法。比如遍历工作表时复制指定区域：

For Each H In ThisWorkbook.Worksheets
    ' 假设要把当前工作表的A1:Z100复制到S工作表
    H.Range("A1:Z100").Copy
    S.Range("A1").PasteSpecial Paste:=xlPasteAll
    Application.CutCopyMode = False
    ' 继续你的后续逻辑...
Next H

这样就能保证复制过去的内容和原格式完全一致啦。

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