'這段代碼是用來去除A列+B列的雙條件重復值
Dim?r%,?i%?'定義變量
Dim?arr,?brr?'定義變量
Dim?d?As?Object?'定義變量
Set?d?=?CreateObject("scripting.dictionary")?'?創建字典項目--d
With?Worksheets("sheet1")
r?=?.Cells(.Rows.Count,?1).End(xlUp).Row'取得"sheet1"工作表的A列末行的行號,貌似下面沒用著這個變量
arr?=?.Range("a2:b12")?'將"sheet1"工作表的區域?a2:b12?賦值給數組arr
For?i?=?1?To?UBound(arr)'UBound(arr)為數組arr的下標,數組從上至下循環壹次
xm?=?arr(i,?1)?&?"+"?&?arr(i,?2)'用加號來合並A、B列的值
d(xm)?=?""?'將合並後的值賦值為字典的Key,對應的ITEM值為空。字典的key具有單壹性,這樣就可以去除重復。
Next
m?=?14?'設置變量m的初始值
For?Each?aa?In?d.keys'將字典的key值循環壹次
m?=?m?+?1'm值每次加1
.Cells(m,?1).Resize(1,?2)?=?Split(aa,?"+")?'在"sheet1"工作表的A15開始,輸出雙條件不重復值。Split用來分開加號左右的兩個值
Next
End?With
End?Sub