VBAでコンビネーションを組み合わせて書き出す

Question

配列やコンビネーションに連続しない値を読み込むコードを記述しました。配列は、配列の値を昏睡状態（つまり、mystring = Join（Pie、 "、"）で区切られた文字列変数に書き込むことによって書き出します。それらの間には何もありません。コンビネーションは、コンビネーションの内容を1つのセルに書き出す方法がわからないためにうまくいきます。つまりコンビネーションはフルーツのリストです。私はユニークな価値のコードが働いているが、Apple、Orange、Grape、、Peachのような出力に終わるかもしれない。私がCombinationを使うとき、値は正しく読み込まれるが、 （Apple、Orange、Grape、Peach）で区切られたユニークな値だけを書いてみたいと思っています。もし助けが必要なら、サンプルコードを提供することができます。 Excel VBAで（可能であれば、アルファベット順で組み合わせ内の項目を並べ替えることもあります）ありがとう事前に。

Answer 1

何について：

Dim result As String 
Dim fruit As Variant 

fruit = Array("Banana", "Apple", "Banana", "Orange", "", "Apple") 

For i = 0 To UBound(fruit) 

    If fruit(i) <> "" And InStr(result, fruit(i)) = 0 Then 
     If result <> "" Then 
      result = result + ", " + fruit(i) 
     Else 
      result = fruit(i) 
     End If 
    End If 
Next i 

MsgBox result 'returns: "Banana, Apple, Orange" 

編集：果物をシート上に格納されている場合は、単にループは、細胞トラフ、配列に追加します。

編集2.0：

Dim result As String 
Dim fruit As Variant, allfruits As Variant 
Dim i As Integer 
Dim success As Boolean 

allfruits = Array("Apple", "Orange", "Mango", "Banana") 'Fruits sorted by Importance 
fruit = Array("Banana", "Apple", "Banana", "Orange", "", "Apple") 

For i = 0 To UBound(allfruits) 
    success = False 
    For Each element In fruit 
     If element = allfruits(i) And success = False Then 
      success = True 
     End If 
    Next element 
    If success = True Then 
     If result = "" Then 
      result = allfruits(i) 
     Else 
      result = result + ", " + allfruits(i) 
     End If 
    End If 
Next i 

MsgBox result 'returns: "Apple, Orange, Banana"