咨询：Excel自动处理红色关联单元格的VBA实现方案

方案1：清除左侧两单元格内容并将该行移至顶部 #

此方案遍历最右侧列的红色单元格，清除对应行左侧两单元格内容后，将该行移至数据区域顶部：

Sub ProcessRedCells_MoveToTop()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim targetCol As Integer
    Dim topRow As Integer
    
    Set ws = ActiveSheet
    targetCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column ' 自动获取最右侧列
    topRow = 2 ' 数据起始行，表头在第1行时可直接用，按需调整
    lastRow = ws.Cells(ws.Rows.Count, targetCol).End(xlUp).Row
    
    ' 从最后一行往上遍历，避免移动行导致索引混乱
    For i = lastRow To topRow Step -1
        ' 检查单元格是否为标准红色填充，若为主题色需替换对应Color值
        If ws.Cells(i, targetCol).Interior.Color = RGB(255, 0, 0) Then
            ' 清除左侧两个单元格内容
            ws.Cells(i, targetCol - 1).ClearContents
            ws.Cells(i, targetCol - 2).ClearContents
            ' 将整行剪切插入到数据顶部
            ws.Rows(i).Cut
            ws.Rows(topRow).Insert Shift:=xlDown
        End If
    Next i
End Sub

关键说明 #

• 自动识别最右侧列，无需手动指定列号
• 从下往上遍历，避免移动行后后续单元格索引错位
• 保留原数据结构，不会破坏其他单元格的公式

方案2：删除红色单元格及其左侧两单元格所在行 #

若需直接移除包含红色单元格的整行（下方数据自动上移），使用以下代码：

Sub DeleteRedCellRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim targetCol As Integer
    Dim topRow As Integer
    
    Set ws = ActiveSheet
    targetCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    topRow = 2 ' 数据起始行，按需调整
    lastRow = ws.Cells(ws.Rows.Count, targetCol).End(xlUp).Row
    
    ' 从下往上遍历，防止删除行后索引错位
    For i = lastRow To topRow Step -1
        If ws.Cells(i, targetCol).Interior.Color = RGB(255, 0, 0) Then
            ' 删除整行，下方数据自动上移
            ws.Rows(i).Delete Shift:=xlUp
        End If
    Next i
End Sub

自定义调整提示 #

• 若仅需删除同一行的三个单元格（而非整行），将ws.Rows(i).Delete替换为：

  ws.Range(ws.Cells(i, targetCol-2), ws.Cells(i, targetCol)).Delete Shift:=xlUp
  

• 若红色为Excel主题色，需通过录制宏获取对应颜色代码替换RGB(255,0,0)

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