清理数组中重复的数据和读取顺序文件到数组.txt

清理数组中重复的数据和读取顺序文件到数组 清理数组中重复的数据 Public Function ClearArray(A() As String, ByRef B() As String) Dim i As Long Dim j As Long Dim N As Long Dim L As Long i) For j = 0 To UBound(B) If Temp1 = B(j) Then Temp = True: Exit For End Function