rowa電視代碼(rowa電視分辨率)

前沿拓展：

源數(shù)據(jù)：

代碼：

Sub 對(duì)比()

Dim arr, brr, crr

Dim i, j, n, lastrowA, lastrowB As Integer

'建立字典對(duì)象

Set d = CreateObject("scripting.dictionary")

'獲取數(shù)據(jù)區(qū)域最后一行的行數(shù)

lastrowA = Sheets("對(duì)比對(duì)齊兩列數(shù)據(jù)").Cells(Rows.Count, 1).End(xlUp).Row

lastrowB = Sheets("對(duì)比對(duì)齊兩列數(shù)據(jù)").Cells(Rows.Count, 2).End(xlUp).Row

'將數(shù)據(jù)區(qū)域?qū)霐?shù)組

arr = Sheets("對(duì)比對(duì)齊兩列數(shù)據(jù)").Range("A3:A" & lastrowA)

brr = Sheets("對(duì)比對(duì)齊兩列數(shù)據(jù)").Range("B3:B" & lastrowB)

'重新定義數(shù)組crr,數(shù)組行數(shù):數(shù)組arr+數(shù)組brr元素?cái)?shù)和,列數(shù)：2

ReDim crr(1 To UBound(arr) + UBound(brr), 1 To 2)

'循環(huán)數(shù)組arr,將arr的值賦值給crr的第一列,同時(shí)，建立字典，字典的關(guān)鍵字為數(shù)組的值，對(duì)應(yīng)的項(xiàng)目給該值對(duì)應(yīng)的位置

'舉例來說，字典的第一個(gè)關(guān)鍵字為淮安，淮安對(duì)應(yīng)的項(xiàng)為1

For i = 1 To UBound(arr)

crr(i, 1) = arr(i, 1)

d(arr(i, 1)) = i

Next

n = UBound(arr)

'循環(huán)數(shù)組brr,首先判斷brr的元素在字典中是否存在，如果存在，那么通過d(brr(j, 1))找到這個(gè)元素在字典中所在的位置，然后把這個(gè)元素賦值給crr該元素所在位置的第二列

'舉例來說，brr的第一個(gè)值是青島，在arr中是第17個(gè)，通過上面的循環(huán)和寫入字典，可以判斷，青島已經(jīng)是字典的關(guān)鍵字，并且對(duì)應(yīng)的值是17，同時(shí)，數(shù)組crr的第17行，第1列的值就是青島

'此時(shí)brr也出現(xiàn)了青島，通過判斷，字典中存在，那么d(brr(j, 1))=d(青島）=17，即crr(17,2)=brr(j,1)=青島，把青島寫入到crr的第17行，第2列

For j = 1 To UBound(brr)

If d.exists(brr(j, 1)) Then

crr(d(brr(j, 1)), 2) = brr(j, 1)

Else

'如果不存在，那么就寫入到crr的n行2列，n的初始值是arr元素的數(shù)量，n+1,即第一個(gè)不在arr中的brr值寫到crr的n+1行，之后每次出現(xiàn)都加一行，依次往下賦值

n = n + 1

crr(n, 2) = brr(j, 1)

End If

Next

'將crr的數(shù)據(jù)賦值到單元格區(qū)域

Sheets("對(duì)比對(duì)齊兩列數(shù)據(jù)").Range("D3").Resize(n, 2).Value = crr

End Sub

拓展知識(shí)：