大神看下，很奇怪的问题，数据一样，得出的判断却不同

lownumber

我通过open方法读取热点.txt文件到B列


然后C列用公式判断A列和B列的同行单元格数据是否匹配


【遇到的问题】
A列和B列的数据是一样的，C列得出的结果却是不一样
按理说应该是一样的才对啊

Yalishanda30

把公式改成=IF(A2=B2,"不匹配","匹配")

lownumber

Yalishanda30 发表于 2019-11-10 11:09
把公式改成=IF(A2=B2,"不匹配","匹配")

不行。B列我随便改个数据。数据不一样。判断的结果居然是匹配

microyip

因为读取的时候，回车符也会被作为字符读进去了

xyxcc177

是因为从文本文件中读进的每一行最后有回车符，替换掉就可以了Sub 读取()
MsgBox ThisWorkbook.Path
Open ThisWorkbook.Path & "\热点.txt" For Input As #1
s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbLf)
Close #1
Dim i As Integer
For i = 0 To UBound(s)
     s(i) = Replace(s(i), Chr(13), "")
Next
[b2].Resize(UBound(s), 1) = Application.Transpose(s)
End Sub

lownumber

xyxcc177 发表于 2019-11-10 11:32
是因为从文本文件中读进的每一行最后有回车符，替换掉就可以了Sub 读取()
MsgBox ThisWorkbook.Path
Open ...

666，问题解决，谢谢

lownumber

microyip 发表于 2019-11-10 11:27
因为读取的时候，回车符也会被作为字符读进去了

是这个导致的，谢谢

YZC51

lownumber 发表于 2019-11-10 12:40
是这个导致的，谢谢

试试
Sub 读取()
MsgBox ThisWorkbook.Path
Open ThisWorkbook.Path & "\热点.txt" For Input As #1
s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbLf)
Close #1
[b2].Resize(UBound(s), 1) = Application.Transpose(s)
[B:B].Replace Chr(13), ""
End Sub

YZC51

或者
Sub 读取()
MsgBox ThisWorkbook.Path
Open ThisWorkbook.Path & "\热点.txt" For Input As #1
s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
Close #1
[b2].Resize(UBound(s), 1) = Application.Transpose(s)
End Sub

lownumber

YZC51 发表于 2019-11-10 13:51
或者
Sub 读取()
MsgBox ThisWorkbook.Path

你的这2种方法测试也可以。但有个问题，就是读取的数据比较大的时候，我测试了1M左右的txt文件。3种方法都试过，提示运行时错误1004，应用程序定义或对象定义错误