'标记处数据区域中行内数据不同的行Private Sub 随便去个名字吧() '取得数据区域的最大行列值 x1 = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column y1 = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row '消除系统使用区域和实际使用区域的差异 y = 1 k = 0 Do While y <= y1 For x = 1 To x1 If Cells(y, x).Value <> "" And k < x Then k = x End If Next x y = y + 1 Loop '修正最大列标值 x1 = k '先行后列循环对比 For y = 1 To y1 '定义首行比较值变量 Dim A A = Cells(y, 1).Value '初始化行标记色 Range(Cells(y, 1), Cells(y, x1)).Interior.ColorIndex = 0 For x = 1 To x1 '发现空值或者数据不符，即标记颜色 If Cells(y, x).Value <> A Or Cells(y, x).Value = "" Then Range(Cells(y, 1), Cells(y, x1)).Interior.ColorIndex = 6 Exit For End If Next x Next yEnd Sub
