中文字幕理论片,69视频免费在线观看,亚洲成人app,国产1级毛片,刘涛最大尺度戏视频,欧美亚洲美女视频,2021韩国美女仙女屋vip视频

接上一期，我的這列數(shù)據(jù)需要同另外一列數(shù)據(jù)比對，其中有一些數(shù)據(jù)不同。1300行的數(shù)據(jù)，根本無法手工比對。下面讓我們用VBA代碼找出數(shù)據(jù)不同，并且用紅底色顯示出來：

方法如下：

1. 按上一期的方法點(diǎn)擊增加一個(gè)矩形，編輯輸入文字為'數(shù)據(jù)比對'
2. 見上期方法，在VBA編輯器里增加下面的幾行代碼
3. 點(diǎn)擊'數(shù)據(jù)比對'的矩形按鈕，一秒完成，運(yùn)行結(jié)果如下：

代碼如下：

Dim i

Dim iRows As Long

iRows = Sheet1.Range('A65536').End(xlUp).Row '有數(shù)據(jù)的最后一行

For i = 2 To iRows '從第二行開始，一直到有數(shù)據(jù)的最后一行

If Sheet1.Cells(i, 2) <> Sheet1.Cells(i, 1) Then '如果兩列數(shù)據(jù)不相等時(shí)

Sheet1.Cells(i, 1).Interior.Color = 255 '顯示紅底色

Sheet1.Cells(i, 2).Interior.Color = 255 '顯示紅底色

End If

Next

以下是截圖：

添加按鈕

添加代碼

最后運(yùn)行的效果