NO.1

Excel vba中，Range对象是一个很重要的关键，重点掌握此对象，可以完成大部分的表格处理技巧。

也会对表格管理方面有一些帮助。

这里将举例介绍一下Range对象的两个方法，一个是RowDifferences,另一个ColumnDifferences。

这两个方法的作用就是找不同。

NO.2

找不同就如给出两张看似一样的图片，找出其中不一样的地方。

引申到表格处理也一样，给出一些相似度高的数据，分别找出其中不一样的内容。

这么理解就相对容易了。

那么，Excel给我们准备了很方便的功能。

此两个方法其工作原理就是分别对列和行找出不相同的数据，所以，这个方法就用到一个参数，即要找的那个数据range单元格。

NO.3

上图为例，做了一个处理，单击任意数字即可找出不同与此单元格不相同的单元并返回一个Range对象。

如：

Activesheet.Columns("A").ColumnDifferences(Comparison:=Me.Range("A1"))

上面例子的功能就是找出A列中与A1不相同的单元格。

同理如果要找出第一行与A1不相同的单元格，代码如下：

Activesheet.Rows(1).RowDifferences(Comparison:=Me.Range("A1"))

这里有一个需要注意一点，就是要找的这个单元格A1，必须是同一行或列，不能在A列找B2单元格的不同，会报错。

也就是说，必须在同一个公司里找出本公司里面不相同的那个人，不能在A公司里找B公司那个人，那是不可能找到的，除非这个人会分身术。

方法说明

NO.4

代码

列单元格找不同

Private Sub CommandButton1_Click()
Dim ad As String
ad = Selection.Address
If VBA.Left(ad, 2) <> "$A" Then MsgBox "请选择A列单元格！": Exit Sub
Dim r As Range
With Me.Columns("A")
    .Interior.Color = RGB(255, 255, 212)
    With .Font
        .Size = 30
        .Name = "微软雅黑"
        .Color = RGB(222, 1, 1)
    End With
    Set r = .ColumnDifferences(Comparison:=Me.Range(ad))
        r.Select
        With Selection.Font
            .Size = 30
            .Bold = True
            .Color = RGB(1, 1, 1)
        End With
        With Selection.Interior
            .Color = RGB(111, 222, 122)
        End With
End With
End Sub

上面代码默认已经完成A列数据录入完成，任意单击A列一个单元格，查找不同与被先单元格值，然后对找出的单元格进行颜色识别。

行单元格找不同

Private Sub CommandButton2_Click()
Dim cv As String
cv = Selection.Address
If VBA.Right(cv, 2) <> "$1" Then MsgBox "请选择1行单元格！": Exit Sub
Dim c As Range
With Me.Rows(1)
    .Interior.Color = RGB(255, 255, 212)
     With .Font
        .Size = 30
        .Name = "微软雅黑"
        .Color = RGB(222, 1, 1)
     End With
    Set c = .RowDifferences(Comparison:=Me.Range(cv))
        With Selection.Font
            .Size = 30
            .Bold = True
            .Color = RGB(1, 1, 1)
        End With
        With Selection.Interior
            .Color = RGB(111, 222, 122)
        End With
End With
End Sub

上面代码默认已经完成第1行数据录入完成，单击第1行任意一个单元格，查找不同与被先单元格值，然后对找出的单元格进行颜色识别。

Tags：subcommand