不明白你要干什么
关键是这几句
For i = 0 To UBound(aa)
For j = 0 To UBound(bb)
If aa(i) = bb(j) Then
Exit For
Else
str3 = str3 & aa(i) & vbCrLf
Exit For
End If
Next
Next
意思是3.txt内的每个内容与4.txt的所有内容比较,也就是说3.txt的每个内容都不在4.txt时才赋值给str3 ???