Excel有很多對象,Range是其中一個常用對象,此對象預定義了大量的方法,可能用來調用,實現不同的功能。
其中ColumnDifferences是一個比較有用的功能,編程過程中,如果合理應用還是節省不少時間的。
下面介紹一下ColumnDifferences的使用方法。
ColumnDifferences方法
功能:
返回一個 Range 對象,該對象表示每列中所有與比較單元格內容不同的單元格。
也不是說這個方法將返回一個Range對象,返回這個對象包括了每列中所有單元格比較之後不同的單元格。
再直白一點,就是單元格值進行比較,最後返回所有不相同的單元格。
格式:
表達式.ColumnDifferences(比較單元格)
Set r = ActiveSheet.Columns("B").ColumnDifferences(ActiveSheet.Range("B20"))
上面這個例子就是,將B列每一個單元格和B20進行比較,返回比較結果不相同的單元格,賦給r對象,如此rRange對象包含了與B20不相同值的所有B列單元格。
注意一點,就是並不是所有B列單元格,而是表內UsersedRange單元格,也就是說表內最大行以內的單元格。
找出不是【衣錦還鄉】
找出不是【紅袖添香】
上圖分別對「紅袖添香」和「衣錦還鄉」進行比較,然後設置一個不同背景以示區分找出不同。
這樣在用到篩選功能的時候就可以方便地找出不同項,然後進行操作了。
代碼
Private Sub CommandButton3_Click()Dim r As RangeSet r = ActiveSheet.Columns("B").ColumnDifferences(ActiveSheet.Range("b24"))r.SelectWith Selection.Interior.Color = RGB(252, 152, 131) .Borders.LineStyle = 1 .BorderAround LineStyle:=1, Weight:=xlHairline, ColorIndex:=21End WithMe.OLEObjects("Label1").Object.Caption = "找出所有不是【衣錦還鄉】"End Sub
關於Range有很多值得學習的方法和屬性,有必要多加學習,如此就可以更加熟練地掌握和學習Excel vba 編程方面的一些內容。
在編程過程中會得到事半功倍的效果。
如果喜歡這篇文章,歡迎關注、收藏