vb清除相同行

Private Sub Command1_Click()

Dim i, j

Dim a() As String
a = Split(Text1.Text, vbCrLf)

For i = 0 To UBound(a) - 1
    For j = 1 To UBound(a)
        If i <> j And a(i) = a(j) Then
            Print "第" & i + 1 & "行和第" & j + 1 & "行" & a(i) & "; 重复; "
           
            Text1.Text = Replace(Text1.Text, vbCrLf & a(j) & vbCrLf, vbCrLf)
           
           
        End If
    Next
Next

End Sub