基于其他单元格值的单元格格式同步宏开发需求

我正在为项目制作TierList，已通过条件格式为层级值单元格设置颜色，现需开发基础宏，使名称单元格格式与对应层级值单元格一致。

实现代码 #

以下是实现该功能的VBA宏代码，假设层级值位于B列，名称位于A列，每行一一对应：

Sub SyncTierColors()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 指定目标工作表，根据实际情况修改名称
    Set ws = ThisWorkbook.Worksheets("TierList")
    
    ' 获取层级值列的最后一行数据
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    ' 遍历数据行，同步格式
    For i = 2 To lastRow ' 若第1行是表头，从第2行开始遍历
        ' 复制层级值单元格的格式到对应名称单元格
        ws.Cells(i, "B").Copy
        ws.Cells(i, "A").PasteSpecial Paste:=xlPasteFormats
    Next i
    
    ' 清理剪贴板，避免残留格式
    Application.CutCopyMode = False
    MsgBox "格式同步完成！", vbInformation
End Sub

使用步骤 #

• 打开Excel文件，按下 Alt + F11 打开VBA编辑器
• 在编辑器中右键点击当前工作簿，选择「插入」→「模块」
• 将上述代码粘贴到模块中，根据实际表格结构修改工作表名称、列号
• 按下 F5 运行宏，即可完成名称单元格与层级值单元格的格式同步

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