ارجو المساعدة كيف يمكن حذف القيم المتشابهة فى array ماعدا قيمة واحدة فقط

اخي يا ريت توضح شوية يعني ايه ما عدا قيمة واحدة يعني في قيمة ممكن تبقا متشابهة وانتا مش عاوزها تتشال مثلا والا ايه يا ريت توضح وتوضح لينا اي الغرض من ذلك يمكن نقدر نوصلك طريقة اسهل من كده ............

السلام عليكم ورحمة الله وبركاته

لقد قمت بصنع لك مثال لما تريده إن شاء الله وهي تقوم فكرته على فلترت الـ Array في Array جديده وذلك بإحتوائها على عناصر المصفوفة ولكن بدون تكــــــرار .

واليك الكود والمثال مرفق :

'''''''''''''''''''''''''''''''''''
''' to ramysarwat from A7med_prof''
'' ArabTeam2000.CoM
'''''''''''''''''''''''''''''''''''
Private Sub Command1_Click()
Dim X(10) As String
Dim X2() As String
Dim I, U, Y As Integer

X(0) = "x"
X(1) = "xx"
X(2) = "xx"
X(3) = "xx"
X(4) = "xxx"
X(6) = "xx"
X(7) = "xxx"
X(8) = "xx"
X(9) = "xxx"
X(10) = "xx"

Dim bouF As Boolean
ReDim Preserve X2(UBound(X))

For I = 0 To UBound(X)

bouF = False

	For U = 0 To UBound(X2)

		If X(I) = X2(U) Then

			bouF = True
			Exit For

		End If

	Next U

If bouF = False Then
	X2(Y) = X(I)
	Y = Y + 1
End If
'
Next I

ReDim Preserve X2(Y - 1)

''''''''''' Show Me Results '''''
MsgBox "Number Of Array Items IS: " & UBound(X2) + 1
For I = 0 To UBound(X2)
	MsgBox X2(I)
Next I
MsgBox "Thanks A7med_prof ArabTeam2000.CoM"
'''''''''

بالتوفيق .....

A7med_prof

FilterArray.zip

الف شكر يا استاذ احمد على مجهودك وجارى اختبار الكود .