VBA复制样式时如何保留目标列的数据格式？

这个问题我之前也碰到过——xlPasteFormats确实会把数字格式也一并覆盖，刚好有两个靠谱的解决方案可以帮你保留目标列的Date格式：

方案1：先保存目标列的数字格式，粘贴后恢复 #

这个方法最稳妥，能完全保留目标列原本的Date格式（不管是yyyy-mm-dd还是mm/dd/yyyy这类具体格式）：

Sub CopyStylesPreserveDateFormat()
    Dim ws As Worksheet
    Set ws = ActiveSheet ' 或者指定你的工作表，比如ThisWorkbook.Worksheets("Sheet1")
    
    Dim sourceCol As String
    sourceCol = "A" ' 源列
    
    Dim destCol As String
    destCol = "B" ' 替换成你的目标列
    
    ' 1. 保存目标列第二行的日期格式（假设整列第二行及以下都是统一的日期格式）
    Dim originalDateFormat As String
    originalDateFormat = ws.Columns(destCol).Cells(2).NumberFormat
    
    ' 2. 复制源列的所有格式到目标列
    ws.Columns(sourceCol).Copy
    ws.Columns(destCol).PasteSpecial Paste:=xlPasteFormats
    
    ' 3. 恢复目标列第二行及以下的日期格式
    ws.Columns(destCol).Cells(2).Resize(ws.Rows.Count - 1).NumberFormat = originalDateFormat
    
    ' 清除剪贴板，避免后续弹窗干扰
    Application.CutCopyMode = False
End Sub

为什么这个管用？ #

我们先把目标列的日期格式提前存好，等粘贴完源列的样式（字体、颜色、对齐、边框这些）之后，再把日期格式改回去——相当于只替换了样式，保留了核心的数字格式。

方案2：精准复制非数字格式的样式 #

如果你不想走“粘贴-恢复”的流程，也可以直接拆分复制的内容，只粘贴你需要的样式（完全不碰数字格式）：

Sub CopyNonNumberFormats()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    Dim sourceCol As String: sourceCol = "A"
    Dim destCol As String: destCol = "B"
    
    ' 逐一复制需要的样式类型，避开数字格式
    ws.Columns(sourceCol).Copy
    ws.Columns(destCol).PasteSpecial Paste:=xlPasteFont ' 复制字体样式
    ws.Columns(destCol).PasteSpecial Paste:=xlPasteAlignment ' 复制对齐方式
    ws.Columns(destCol).PasteSpecial Paste:=xlPasteBorder ' 复制边框
    ws.Columns(destCol).PasteSpecial Paste:=xlPasteColumnWidths ' 复制列宽（可选）
    ws.Columns(destCol).PasteSpecial Paste:=xlPasteInterior ' 复制填充颜色（可选）
    
    Application.CutCopyMode = False
End Sub

注意点： #

你可以根据自己的需求增减粘贴的类型——比如不需要填充颜色就删掉xlPasteInterior，需要数据验证就加上xlPasteValidation。这种方式完全不会触动目标列的Date格式，因为我们根本没粘贴数字格式相关的内容。

如果你的目标列只有第二行及以下是日期格式（第一行是表头），两种方案都能完美适配。我个人更推荐方案1，因为它更省心，不用逐一列举要复制的样式类型。

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