2013-10-22 47 views

回答

0

你願意創建自己的函數嗎?

我想你想說的是,你要顯示從小區1未在「其他」細胞中發現的唯一值...

基本上通過第一個單元格我的功能將循環按「,」逗號分隔符分割並將每個值分配給一個Dictionary對象。然後它將以相同的方式通過第二個單元格,但是如果該值存在於字典對象中,則將其刪除...僅保留唯一項目,然後使用逗號分隔符將其加入數組...

Place下面的代碼到模塊並且通過

= GetUnique(A1,A2)中引用它在細胞

Public Function GetUnique(RangeA As Range, RangeB As Range) 
Dim objDic As Object 
Dim X As Variant 

Set objDic = CreateObject("Scripting.Dictionary") 
For Each X In Split(RangeA.Value, ",") 
    If Not objDic.exists(X) Then 
     objDic.Add X, objDic.Count 
    End If 
Next 
For Each X In Split(RangeB.Value, ",") 
    If objDic.exists(X) Then 
     objDic.Remove (X) 
    End If 
Next 
GetUnique = Join(objDic.keys, ",") 
End Function 
+0

@B哈特感謝答覆。如何創建module.i是新的是。 –

+0

@VivekParikh Excel最簡單的方法是按Alt + F11鍵打開Microsoft Visual Basic編輯器。右鍵單擊您的VBA項目,然後選擇插入模塊...選擇模塊(將爲空白)並將此代碼複製到其中...現在您將能夠在Excel單元格中引用自制函數。如果你需要更多的幫助,Google,StackOverflow甚至YouTube上都應該有大量的教程:) –

+0

@B哈特感謝v .. –