當前位置:成語大全網 - 新華字典 - Excel VBA公式

Excel VBA公式

Sub?test()

'這段代碼是用來去除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