请尝试下一种方法：

Sub removeArrDuplAndEmpty()
   Dim x As String, arr, i As Long, dict As Object
   
   x = "English,science,Social,English,Social,science,science,Social,English,,,"
   Set dict = CreateObject("Scripting.Dictionary")
   arr = Split(x, ",") 'extract the array
   
   For i = 0 To UBound(arr)
        If arr(i) <> "" Then dict(arr(i)) = 1 'create unique keys for non blank array elements
   Next 

   arr = dict.keys 'place back the dictionary keys in the initial array
   Debug.Print Join(arr, ";") 'only to visually see the result
End Sub

下一个版本按照您在问题中显示的方式处理字符串：

Sub removeArrDuplAndEmptyBis()
   Dim x As String, arr, i As Long, dict As Object
   
   x = "[English,science,Social,English,Social,science,science,Social,English,,,]"
   Set dict = CreateObject("Scripting.Dictionary")
   arr = Split(left(Mid(x, 2), Len(Mid(x, 2)) - 1), ",")
   
   For i = 0 To UBound(arr)
        If arr(i) <> "" Then dict(arr(i)) = 1
   Next i
   arr = dict.keys
   Debug.Print Join(arr, ",")
End Sub

这是你想要的吗？如果不是，请给出一个例子你真正的字符串和它在处理后的样子...