用VBA删除一行数据和标黄

好的，以下是删除一行数据和将其标黄的 VBA 代码示例：

Sub DeleteRowAndHighlightYellow()
    Dim LastRow As Long
    Dim i As Long
    
    LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row ' 获取最后一行的行数
    
    For i = LastRow To 1 Step -1 ' 从最后一行开始往上循环
        If ActiveSheet.Cells(i, 1).Value = "要删除的数据" Then ' 如果找到要删除的数据
            Rows(i).Delete ' 删除该行数据
        End If
    Next i
    
    For i = 1 To LastRow ' 循环所有行
        If ActiveSheet.Cells(i, 1).Interior.ColorIndex <> 6 And ActiveSheet.Cells(i, 1).Value <> "" Then ' 如果该行不是黄色且有值
            ActiveSheet.Cells(i, 1).Interior.ColorIndex = 6 ' 将该行标黄
        End If
    Next i
End Sub

其中，`要删除的数据`需要替换为你要删除的数据内容。你可以将该代码复制到 VBA 编辑器中的一个新模块，然后在 Excel 中运行它。注意，在运行代码之前，你需要将要操作的工作表激活，或者将 `ActiveSheet` 替换为具体的工作表名称。