Question

vb文本框数组5个的合并到6个数组里

首先，感谢老师回答的问题，是我想要的，以采纳，谢谢！再请教老师一个问题，如文本框1有很多如下数组：
1 2 3 4 5
1 2 3 4 6
1 2 3 5 6
1 2 4 5 6
1 3 4 5 6
2 3 4 5 6
2 3 7 8 11
3 6 9 12 13等等数组数据，怎么用一个按钮把1 2 3 4 5,1 2 3 4 6,1 2 3 5 6,1 2 4 5 6,1 3 4 5 6,2 3 4 5 6合并成1 2 3 4 5 6这样的数组，因为这6组数据属于1 2 3 4 5 6，遇到有这样的数组就合并成6个数的数组，其它的按原来5个数显示在文本框2中，如下所示：
1 2 3 4 5 6
2 3 7 8 11
3 6 9 12 13再次感谢老师了！！！

Answer 1

Function Qc(ax, Optional xx As String = "字符进数组出") 'ax为需要去重的数组或字符串,b为输出字符串，c为输出数组，输入字符串，输出数组，输入数组，输出字符串
On Error Resume Next
If VarType(ax) = vbString Then
a = Split(ax, ",")
Else
a = ax
End If
b = a(0)
For i = 1 To UBound(a)
  c = Split(b, ",")
   For j = 0 To UBound(c)
    物袜 If c(j) <> a(i) Then
       If j = UBound(c) Then
        b = b + "," + a(i)
        End If
        Else
        Exit For
        End If
   Next
Next
If VarType(ax) = vbString Then
Qc = Split(b, ",")   ''''''''输出字符串
Else
Qc = b  ''''''''输出数组
End If
End Function

 尺段你可以试一下这个，稍作修罩困激改应该能得到你想要的