Dim a() As String
Open (Dir1.Path & "\330000-04.csv") For Input As #1
        Do While Not EOF(1)
        Line Input #1, temp1
       
If IsNumeric(Mid(temp1, 1, 1)) = True Then
a = Split(temp1, ",")
List2.AddItem a(3) & "-" & a(4) & "-" & a(5)
End If
Loop
Close #1

DoEvents

Dim i As Single, j As Single
Dim ListArr() As String
Dim Repeat As Boolean
ReDim ListArr(0)
Dim x() As String
Dim y() As String
ListArr(0) = List2.List(List2.ListCount - 1)
For i = List2.ListCount - 1 To 0 Step -1
x = Split(List2.List(i), "-")
    Repeat = False
    For j = 0 To UBound(ListArr)
    y = Split(ListArr(j), "-")
            If ("-" & x(1) & "-" & x(2)) = ("-" & y(1) & "-" & y(2)) Then Repeat = True: Exit For
    Next
    If Repeat = False Then
        ReDim Preserve ListArr(UBound(ListArr) + 1)
        ListArr(UBound(ListArr)) = List2.List(i)
    End If
Next
List2.Clear
For i = UBound(ListArr) To 0 Step -1
    List2.AddItem ListArr(i)
Next

以上是我的程序里一段处理list2中重复数据的程序，目的是从后向前查找list2中部分字符串重复的，用后面的替换前面重复的。整段程序运行没有错误。
现在我遇到两个问题：
1、list控件有数量限制，大概3万2千多数据后ListCount就变成负数了。但我的数据最多有10万条左右。我想把数据读入内存数组，然后再处理，那么这段程序怎么修改呢？
麻烦哪位能在这个程序的基础上进行修改后再给贴上来，谢谢！
2、整段程序运行时间较长，我大概1万7千条数据，处理了大概好几分钟，主要就是后面处理重复数据的那一段程序耗时太长，至少占用了95%的时间，有没有办法加快处理速度呢？如果要重写，怎么写呢？
附实验数据：

[此贴子已经被作者于2019-2-21 23:10编辑过]

*  回复wmf2014版主，感谢您的回复。您说的方法肯定很对，但我不得其法，不是很会操作。



*  回复ZHRXJR版主，感谢您的回复。我说明一下，每一行的5个数值，我只用到了后三个，所以用了

a = Split(temp1, ",")
List2.AddItem a(3) & "-" & a(4) & "-" & a(5)

语句，a(3)是状态类型；a(4)是X坐标；a(5)是Y坐标。也就是说每个坐标点上的状态类型不一样，从16169行开始到最后，坐标（a(4)，a(5)）与前面是有重复的，前面的a（3）状态有的发生改变，有的没有改变。但我不管改没改变，从后面开始提数据向前检查，当检查到前面数据的坐标（a(4)，a(5)）一致，就删掉前面重复的，保留后边的a(3)-a(4)-a(5)。
不知道我这样解释您是否明白了？


*  回复jklqwe111坛友大神，谢谢您的回复，您说的很对，这些数据控件在大数据前，就会表现的很不尽人意，所以我一直想用内存数组的方法处理大数据，铁定会快很多，但是不太会用数组，一直很头痛。



*  经过多方的查找资料，我把程序进行了修改，尽可能的用上内存数组，运行后速度是快了很多，大概快了几倍吧，但还是需要55秒左右，不知道怎样还能快，恳求哪位能在这个新程序的基础上进行修改后再给贴上来，让我学习学习。

Private Sub Command1_Click()
tt = Timer

Dim strline As String
Dim a()
Dim b()
Dim XY As Long
Dim i, j, k, l As Long
Open (App.Path & "\TOBT330000-04.csv") For Input As #1
        Do While Not EOF(1)
XY = XY + 1
Line Input #1, strline
ReDim Preserve a(XY)
a(XY - 1) = strline
Loop
Close #1

Print XY & "  " & a(0)
DoEvents
For i = UBound(a) To 0 Step -1
For j = i - 1 To 0 Step -1

If Right(a(i), 8) = Right(a(j), 8) Then
a(j) = ""
End If
Next j
Next i
'比较，不为空的元素添加到新的数组中
For i = 0 To UBound(a)
If a(i) <> "" Then
ReDim Preserve b(k)
b(k) = a(i)
k = k + 1
End If
Next i
'打印输出新数组的元素

Open (App.Path & "\04.txt") For Append As #1
For i = 0 To UBound(b)
Print #1, b(i)
l = l + 1
Next i
Close #1

Print l & "  " & Timer - tt

End Sub

实验数据有改变，重新上传。

看看，这就是大神和屌丝，学霸和学渣的区别，身为学渣和屌丝的我，无语，只能对大神顶礼膜拜。
仔细专研了一下wmf2014版主的程序，版主使用的是二维数组吧？对坐标直接赋值，后面有重复坐标的也是直接赋值，相当于用后面的覆盖了前面的，我这样理解对吗？
jklqwe111大神的程序我还在研究学习中。。。。。

趁热打铁，继续询问更复杂一些的问题。

两个文件文件1行和文件2，内容格式都是如下：
状态-位置-X坐标-Y坐标

两个文件都是超过10万行，但文件1行数比文件2要多3万行左右。这3万行的“状态-位置-X坐标-Y坐标”都是文件2没有的。

现在要如此操作：
把文件1的每一行与文件2比较，如果这一行的“-位置-X坐标-Y坐标”部分是文件2里没有的，则跳下一行进行比较；如果这一行的“-位置-X坐标-Y坐标”部分是文件2里有的，则把文件2里包含相同“-位置-X坐标-Y坐标”部分的这一行复制到文件1里，替换原来的一行；总的来说，文件1里的“位置-X坐标-Y坐标”不能变动，原来是哪行还是哪行。

不知我这样叙述明白了吗？这样的话程序怎么写呢？
                           

[此贴子已经被作者于2019-2-23 19:26编辑过]