Excel使用VBA能否将单元格区域的格式存储到变量中？

针对多单元格独立格式的复用需求，目前有两种成熟的实现方式： #

方案1：使用隐藏缓存工作表存储格式（推荐，适配全场景） #

该方案不需要手动解析每个格式属性，依赖Excel原生能力完整保留所有单元格格式（包括条件格式、数据验证、边框、填充色、字体样式等全部属性），会完整保留源区域内每个单元格的独立格式，不会出现格式错位或属性丢失的问题，适合任意大小的区域。

实现步骤 #

1. 初始化深度隐藏的缓存工作表，仅需执行一次

Sub InitFormatCache()
    Dim cacheSheet As Worksheet
    On Error Resume Next
    Set cacheSheet = ThisWorkbook.Sheets("FormatCache")
    On Error GoTo 0
    If cacheSheet Is Nothing Then
        Set cacheSheet = ThisWorkbook.Sheets.Add
        cacheSheet.Name = "FormatCache"
        cacheSheet.Visible = xlSheetVeryHidden ' 深度隐藏，Excel界面不会显示该表
    End If
End Sub

2. 将需要复用的源区域格式存入缓存

Sub SaveFormatToCache(sourceRng As Range, cacheStartCell As Range)
    sourceRng.Copy
    cacheStartCell.PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False ' 清空剪贴板残留
End Sub

3. 复用格式到任意匹配大小的目标区域

Sub ApplyFormatFromCache(targetRng As Range, cacheRng As Range)
    ' 校验区域大小一致，避免格式错位
    If targetRng.Rows.Count <> cacheRng.Rows.Count Or targetRng.Columns.Count <> cacheRng.Columns.Count Then
        Err.Raise vbObjectError + 1001, , "目标区域大小与缓存格式区域不匹配"
    End If
    cacheRng.Copy
    targetRng.PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False
End Sub

调用示例 #

Sub TestFormatReuse()
    InitFormatCache
    Dim cacheSheet As Worksheet
    Set cacheSheet = ThisWorkbook.Sheets("FormatCache")
    
    ' 存储Sheet1的A1:C3区域格式到缓存表A1起始位置
    SaveFormatToCache ThisWorkbook.Sheets("Sheet1").Range("A1:C3"), cacheSheet.Range("A1")
    
    ' 多次复用格式到不同位置
    ApplyFormatFromCache ThisWorkbook.Sheets("Sheet2").Range("D1:F3"), cacheSheet.Range("A1:C3")
    ApplyFormatFromCache ThisWorkbook.Sheets("Sheet3").Range("A2:C4"), cacheSheet.Range("A1:C3")
End Sub

方案2：自定义类存储格式属性（仅适合小区域场景） #

如果不想新增隐藏工作表，可以自定义类模块存储每个单元格的格式属性，仅需把你需要复用的属性（如字体颜色、填充色、边框样式等）定义到类中，遍历源区域把每个单元格的属性存到数组里，应用的时候遍历写入目标区域即可。
注意：该方案需要手动列出所有需要保留的格式属性，仅适合仅需复用部分格式属性、且区域不大的场景，如果要完整保留所有格式，优先选择方案1。 #

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