сравнить две строки

[horpenst]

Здравствуйте,
Как сравнить две строки в массиве, и если они идентичны, то одна из них удаляется?
Спасибо

[Hugo121]

Я думаю, проще не удалять одну из идентичных, а скопировать неидентичные в другой массив.

[horpenst]

Как же это сделать?

[Hugo121]

Проще сделать на словаре:

Option Explicit

Sub tt()
    Dim a(1 To 3, 1 To 1)
    Dim i&, ii&, x&

    a(1, 1) = "qwe"
    a(2, 1) = "rty"
    a(3, 1) = "qwe"

    ReDim b(1 To UBound(a), 1 To 1)

    With CreateObject("Scripting.Dictionary")

        For i = 1 To UBound(a)
            If Not .exists(a(i, 1)) Then
                .Item(a(i, 1)) = vbNullString
                ii = ii + 1
                b(ii, 1) = a(i, 1)
            End If
        Next
    End With

    [a1].Resize(ii, 1) = b

End Sub

[staniiislav]

посмотрите вот здесь:
http://programmersforum.ru/showthread.php?t=86817