combinar y escribir una combinación en VBA

He escrito un código para leer en una matriz o combinación de una list de valores no consecutivos. The Array escribe escribiendo los valores de la matriz en una variable de cadena separada por coma, es decir (mystring = Join (Pie, ","). Esto funciona bien, excepto cuando la matriz tiene un espacio en blanco o un duplicado, termina en coma sin nada entre ellos. La combinación funciona mejor porque no sé cómo escribir el contenido de una combinación en una sola celda, es decir, la combinación es una list de froutes. Si es un duplicado, entonces no lo hago. Quiero includelo en la salida. Tengo el código de valor único en funcionamiento, pero puedo terminar con un resultado como Apple,, Orange, Grape,,, Peach. Cuando uso Combination, los valores se leen correctamente, pero I ' Me gustaría escribirlo solo como valores únicos separados por el coma (ie, manzana, naranja, uva, durazno). Cualquier ayuda sería genial. Puedo proporcionar un código de muestra si es necesario. Solo necesito ayuda sobre cómo usar y manipular las combinaciones. en Excel VBA. (Incluso me gustaría orderar los elementos dentro de la combinación alfabéticamente si es posible) Gracias en una dvance.

Qué pasa:

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" 

Editar: si las froutes están almacenadas en la Hoja, simplemente recorra las celdas y agréguelas a la matriz.

Editar 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"