要在Excel 2010中格式化按钮的宏脚本

Question

我一直在寻找世界，我无法创建也没有找到一个我需要的基本功能的宏。我想要做的就是能够比较列A和列B，如果它们不匹配，则突出显示红色。我需要这个宏，因为我想把它分配给一个按钮。我可以用条件格式来做，但不能用VB。谁能提供一些见解？

Answer 1

通常，需要这种类型的动作的数据将有列标题标签，我会假设。

Sub red_dupes() 
    Dim a As Range 
    With Sheets("Sheet1").Cells(1, 1).CurrentRegion 
     With .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count) 
      .Columns("A:B").Cells.Interior.ColorIndex = xlAutomatic 
      For Each a In .Columns(1).Cells 
       If a.Value2 <> a.Offset(0, 1).Value2 Then 
        a.Resize(1, 2).Interior.ColorIndex = 3 
       End If 
      Next a 
     End With 
    End With 
End Sub 

该特定子删除所有以前的颜色通过将细胞在列A循环和标记用红色填充所有A→B非比赛之前填充。如果您想保留现有颜色填充，请勿使用。