求帮忙修改代码，以前适用的现在不适用了，急急急在线等

a8851562

求帮助，代码是以前大神帮忙写的，但是后来人做的数据格式有问题就用不了了，求大神帮忙修改 类似这样，左边第一列与第二列中间两个空格不能用，右图三个空格就能用，如果一个个加空格工作量好大，所以看有木有大神帮忙改下代码

代码如下

1. Sub test()
   
2. t = Timer
   
3. Dim Path$, myName$, arr(16380), brr, crr, tmp, i&, j&, D As Object
   
4. Path = ThisWorkbook.Path & ""
   
5. myName = Dir(Path & "*.txt")
   
6. Do While myName <> ""
   
7.     arr(i) = myName
   
8.     i = i + 1
   
9.     myName = Dir
   
10. Loop
    
11. 
    
12. UsedRange.Offset(0, 2).ClearContents
    
13. [c1].Resize(1, i) = arr
    
14. brr = [a1].CurrentRegion
    
15. Set D = CreateObject("scripting.dictionary")
    
16. For i = 2 To UBound(brr)
    
17.     D(brr(i, 1) & brr(i, 2)) = i
    
18. Next
    
19. For i = 3 To UBound(brr, 2)
    
20.     Open Path & brr(1, i) For Input As #1
    
21.     crr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
    
22.     Close #1
    
23.     brr(1, i) = Split(brr(1, i), ".")(0)
    
24.     For j = 0 To UBound(crr)
    
25.         If crr(j) <> "" Then
    
26.             tmp = Split(WorksheetFunction.Trim(WorksheetFunction.Clean(crr(j))), " ")
    
27.             If UBound(tmp) = 3 Then
    
28.                 If D.exists(tmp(0) & tmp(2)) Then brr(D(tmp(0) & tmp(2)), i) = tmp(3)
    
29.             End If
    
30.         End If
    
31.     Next
    
32. Next
    
33. [a1].Resize(UBound(brr), UBound(brr, 2)) = brr
    
34. MsgBox "OK,Run Times: " & Timer - t, vbInformation
    
35. End Sub
    

复制代码

另外加上两种不同的数据如附件，麻烦大神帮忙修改，真的很急，十分感谢！ 间隔两个空格失败.rar (56.5 KB, 下载次数: 7)

2014-10-21 18:46 上传

点击文件名下载附件

间隔三个空格成功.rar (238.52 KB, 下载次数: 7)

2014-10-21 18:46 上传

点击文件名下载附件

该贴已经同步到 a8851562的微博

liulang0808

空格两个没有发现问题啊。。。

a8851562

liulang0808 发表于 2014-10-21 19:26
空格两个没有发现问题啊。。。

运行代码不会报错但是excel中不会出现相关数据，具体可运行一次三个空格就知道效果啦

liulang0808

a8851562 发表于 2014-10-21 19:41
运行代码不会报错但是excel中不会出现相关数据，具体可运行一次三个空格就知道效果啦

两个附件中的文本文件一致吗

a8851562

liulang0808 发表于 2014-10-21 19:46
两个附件中的文本文件一致吗

excel代码是一样的，但是文本文件中  就有第一列与第二列两个空格和三个空格的区别，两个运行完是不一样的，成功那个表格中会出现相应数据，失败的就没有╮(╯▽╰)╭

liulang0808

excel第一列跟第二列的数据与文本内容无关吗？？？

a8851562

liulang0808 发表于 2014-10-21 20:07
excel第一列跟第二列的数据与文本内容无关吗？？？

那个是有关的，就是用那个去匹配txt中第一列和第三列，然后把对应的第四列中的数据填到对应单元格里，两个文件夹中的表格是完全一样的

liulang0808

a8851562 发表于 2014-10-21 20:15
那个是有关的，就是用那个去匹配txt中第一列和第三列，然后把对应的第四列中的数据填到对应单元格里，两个 ...

那么文本文件里的内容是否一致啊？
至少包含第一列第二列信息吧
刚才看了几个文件，没有发现

a8851562

liulang0808 发表于 2014-10-21 20:19
那么文本文件里的内容是否一致啊？
至少包含第一列第二列信息吧
刚才看了几个文件，没有发现

每个文档中的内容不一样，而且只包含表格前两列内容的一部分，而且对应是表格中第一列第二列分别对应文本中第一列和第三列这样，就是表格中是所有的测站名称，但不是每次所有测站都下雨，文本中是对应小时里面下雨的测站名称及雨量这个样子

liulang0808

a8851562 发表于 2014-10-21 20:29
每个文档中的内容不一样，而且只包含表格前两列内容的一部分，而且对应是表格中第一列第二列分别对应文本 ...

不是几个空格的问题，而是原来有特殊字符的