VBA粘贴日期时如何将C列设置为yyyymmdd格式？

当然可行！你可以通过两种简单的方式实现这个需求，下面给你具体的代码修改方案和说明：

方法1：粘贴后设置单元格格式 #

这种方法保留你原本的复制粘贴逻辑，只需要在粘贴到C列后，给目标单元格区域设置指定的日期格式即可。注意要限定好目标区域的范围，避免影响其他行的内容：

' 先定义工作表变量，避免因活动工作表变化出错
Dim wsSource As Worksheet, wsTarget As Worksheet
Set wsSource = WB1.Worksheets("WS1")
Set wsTarget = WB2.Worksheets("WS2")

' 复制源区域的日期
wsSource.Range(wsSource.Cells(3, "g"), wsSource.Cells(RowCountOPR, "g")).Copy

' 粘贴到C列并设置格式为yyyymmdd
wsTarget.Cells(RowCountTrack, "c").PasteSpecial
' 计算目标C列的范围：从RowCountTrack开始，到RowCountTrack + 源区域行数 -1
wsTarget.Range(wsTarget.Cells(RowCountTrack, "c"), _
               wsTarget.Cells(RowCountTrack + RowCountOPR - 3, "c")).NumberFormat = "yyyymmdd"

' 继续粘贴到N和T列
wsTarget.Cells(RowCountTrack, "n").PasteSpecial
wsTarget.Cells(RowCountTrack, "t").PasteSpecial

方法2：直接赋值（更高效，避免剪贴板依赖） #

如果不需要保留复制粘贴的额外属性（比如单元格格式、公式等），直接赋值的方式运行速度更快，还能避免剪贴板被占用的问题：

Dim wsSource As Worksheet, wsTarget As Worksheet
Set wsSource = WB1.Worksheets("WS1")
Set wsTarget = WB2.Worksheets("WS2")

' 获取源日期区域
Dim sourceRange As Range
Set sourceRange = wsSource.Range(wsSource.Cells(3, "g"), wsSource.Cells(RowCountOPR, "g"))

' 处理C列：赋值并设置yyyymmdd格式
Dim targetCRange As Range
Set targetCRange = wsTarget.Range(wsTarget.Cells(RowCountTrack, "c"), _
                                  wsTarget.Cells(RowCountTrack + sourceRange.Rows.Count - 1, "c"))
targetCRange.Value = sourceRange.Value
targetCRange.NumberFormat = "yyyymmdd"

' 处理N和T列（直接赋值，保留原数据格式）
wsTarget.Range(wsTarget.Cells(RowCountTrack, "n"), _
               wsTarget.Cells(RowCountTrack + sourceRange.Rows.Count - 1, "n")).Value = sourceRange.Value
wsTarget.Range(wsTarget.Cells(RowCountTrack, "t"), _
               wsTarget.Cells(RowCountTrack + sourceRange.Rows.Count - 1, "t")).Value = sourceRange.Value

额外提示 #

• 两种方法里都添加了工作表变量wsSource和wsTarget，这是为了避免代码依赖当前活动工作表，防止出现意外错误。
• 如果你的源日期是文本格式而非日期格式，可能需要先转换为日期值再设置格式，比如用CDate()函数处理，但一般Excel会自动识别日期格式。

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