内黄兼职网是一个正规的网络兼职招聘信息平台,大学生或其他人找兼职工作,请关注本站哟。
当前位置:内黄兼职网 > 兼职资讯 > 正文

Excel 工作表中如何找出不同数据

10-14 兼职资讯

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

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

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

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

Excel 工作表中如何找出不同数据,两个方法教你学会

 

NO.2

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

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

这么理解就相对容易了。

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

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

Excel 工作表中如何找出不同数据,两个方法教你学会

 

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公司那个人,那是不可能找到的,除非这个人会分身术。

方法说明

Excel 工作表中如何找出不同数据,两个方法教你学会

 

NO.4

代码

Excel 工作表中如何找出不同数据,两个方法教你学会

 

列单元格找不同

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行任意一个单元格,查找不同与被先单元格值,然后对找出的单元格进行颜色识别。

版权保护: 本文由 内黄兼职网 网络转载,链接: https://www.neihuang.cc/news/2087.html 如有侵权,请联系我们删除。

兼职网 兼职工作网络兼职招聘
内黄兼职网是一个全国性的、正规的网络兼职招聘信息平台,大学生兼职,或其他人找兼职工作,请关注本站。
  • 大学生兼职
  • 260490访问次数
  • 建站天数
  • 兼职招聘
    网络兼职
    大学生兼职

    找兼职工作