将Report工作表的两项条件格式转换为VBA代码并实现着色单元格剪切粘贴

我明白你遇到的问题——手动设置条件格式很容易，但录制宏抓不到对应的代码，而且还要处理行数不固定的情况。下面是完整的VBA代码，一步到位完成条件格式设置和着色单元格的剪切迁移：

第一步：设置条件格式的VBA代码 #

首先，我们给Report工作表添加两个条件格式规则，确保不管行数多少都能覆盖到有效数据区域：

Sub SetConditionalFormats()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dataRange As Range
    
    ' 指定目标工作表
    Set ws = ThisWorkbook.Worksheets("Report")
    
    ' 获取数据区域的最后一行（假设表头在第1行）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 定义要应用条件格式的范围：第2行到最后一行的所有列（可根据实际调整列范围）
    Set dataRange = ws.Range("A2:" & ws.Cells(lastRow, ws.Columns.Count).Address)
    
    ' 清除原有条件格式（可选，避免重复规则）
    dataRange.FormatConditions.Delete
    
    ' --- 条件格式1：$F5="NH Orientation"，填充色RGB(242,220,219) ---
    With dataRange.FormatConditions.Add(Type:=xlExpression, Formula1:="=$F5=""NH Orientation""")
        .Interior.Color = RGB(242, 220, 219)
    End With
    
    ' --- 条件格式2：OR($O4<4,$G4="Elective")，填充色RGB(242,220,219) ---
    With dataRange.FormatConditions.Add(Type:=xlExpression, Formula1:="=OR($O4<4,$G4=""Elective"")")
        .Interior.Color = RGB(242, 220, 219)
    End With
End Sub

第二步：剪切着色单元格到目标工作表 #

接下来，我们编写代码把第2行及以下的着色单元格（就是刚才设置的RGB颜色）剪切到另一个工作表（这里假设目标表名叫TargetSheet，你可以根据实际修改）：

Sub CutColoredCells()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim lastRow As Long, targetLastRow As Long
    Dim i As Long, j As Long
    
    ' 源工作表和目标工作表
    Set wsSource = ThisWorkbook.Worksheets("Report")
    Set wsTarget = ThisWorkbook.Worksheets("TargetSheet") ' 修改为你的目标表名
    
    ' 获取源表最后一行
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    ' 从第2行开始遍历每一行（倒序遍历避免行号混乱）
    For i = lastRow To 2 Step -1
        For j = 1 To wsSource.UsedRange.Columns.Count
            ' 检查单元格填充色是否匹配目标RGB
            If wsSource.Cells(i, j).Interior.Color = RGB(242, 220, 219) Then
                ' 获取目标表对应列的最后一行下一行
                targetLastRow = wsTarget.Cells(wsTarget.Rows.Count, j).End(xlUp).Row + 1
                ' 剪切粘贴单元格
                wsSource.Cells(i, j).Cut Destination:=wsTarget.Cells(targetLastRow, j)
            End If
        Next j
    Next i
End Sub

整合运行 #

把两个宏合并成一个，一次性完成所有操作：

Sub CompleteTask()
    ' 先设置条件格式
    Call SetConditionalFormats
    ' 再剪切着色单元格
    Call CutColoredCells
    MsgBox "操作完成！"
End Sub

使用说明： #

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器
2. 右键点击左侧的工作簿名称，选择「插入」→「模块」
3. 将上面的代码粘贴到模块窗口中
4. 修改CutColoredCells里的TargetSheet为你实际的目标工作表名称
5. 按下F5运行CompleteTask宏，或者回到Excel界面，通过「开发工具」→「宏」选择CompleteTask执行

注意事项： #

• 倒序遍历行是为了避免剪切行后，后续行号发生偏移导致遗漏
• 如果你的表头不在第1行，需要调整代码里的行号起始值
• 条件格式的公式里，双引号需要用两个双引号转义（VBA里的语法要求）

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