在 VBA 中组合并写出组合

Question

我已经编写了一些代码来读取非连续值的数组或组合列表。数组通过将数组的值写入由逗号分隔的字符串变量来写出，即 (mystring = Join(Pie, ",")它们之间没有任何东西。组合效果更好，因为但我不知道如何将组合的内容写到单个单元格中。即组合是水果列表。如果它们是重复的，那么我不知道想将它包含在输出中。我有唯一的值代码工作，但我最终可能会得到一个输出，如 Apple、Orange、Grape、、、Peach。当我使用组合时，值被正确读入，但我我想把它写成只有由逗号分隔的唯一值，即（Apple，Orange，Grape，Peach）任何帮助都会很棒。如有必要，我可以提供一些示例代码。我只需要一些关于如何使用和操作组合的帮助在 Excel VBA 中。（如果可能的话，我什至想按字母顺序对组合中的项目进行排序）提前nks。

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"