这样从Txt文件导入excel怎么处理？

zlfwto

我有一批数据，需要将txt文件导入到Excel中，见附件。哪位好兄弟能帮我一下？非常感谢。

约定的童话

简单做了一个小工具：点击按钮，选择那个txt,稍等15秒左右数据出来！（水平有限，没有做到直接提取，期大神优化下代码！）

jiangxiaoyun

用excel打开txt就是这个样子，看起来很有规律。很容易处理。

zlfwto

约定的童话 发表于 2018-10-5 12:33
简单做了一个小工具：点击按钮，选择那个txt,稍等15秒左右数据出来！（水平有限，没有做到直接提取，期大神 ...

非常感谢！

约定的童话

zlfwto 发表于 2018-10-5 19:50
非常感谢！

记得右下角评分功能哈.....

719404338

1. Sub t()
   
2.        Dim Str$, arr, i%, j%
   
3.        j = 2: p = 18
   
4.        Str = "/仪器数据.txt"
   
5.        Application.DisplayAlerts = False
   
6.        Open ThisWorkbook.Path & "" & Str For Input As #1
   
7.        arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
   
8.        Close #176
   
9.        For i = 3 To 2755 Step 18
   
10. 
    
11.          Range("a" & j) = Split(arr(i), ":")(1)
    
12.          Range("b" & j) = Split(arr(i + 11), Chr(9))(1)
    
13.          Range("c" & j) = Split(arr(i + 11), Chr(9))(2)
    
14.          Range("d" & j) = Split(arr(i + 11), Chr(9))(3)
    
15.          Range("e" & j) = Split(arr(i + 11), Chr(9))(4)
    
16.          Range("f" & j) = Split(arr(i + 11), Chr(9))(5)
    
17.          Range("g" & j) = Split(arr(i + 11), Chr(9))(6)
    
18.          Range("h" & j) = Split(arr(i + 11), Chr(9))(7)
    
19.          Range("i" & j) = Split(arr(i + 11), Chr(9))(8)
    
20.          Range("j" & j) = Split(arr(i + 11), Chr(9))(9)
    
21.          Range("k" & j) = Split(arr(i + 11), Chr(9))(10)
    
22.          Range("l" & j) = Split(arr(i + 11), Chr(9))(11)
    
23.          Range("m" & j) = Split(arr(i + 11), Chr(9))(12)
    
24.          Range("n" & j) = Split(arr(i + 11), Chr(9))(13)
    
25.          Range("k" & j) = Split(arr(i + 11), Chr(9))(14)
    
26.          Range("o" & j) = Split(arr(i + 11), Chr(9))(15)
    
27.          Range("p" & j) = Split(arr(i + 11), Chr(9))(16)
    
28.          Range("q" & j) = Split(arr(i + 11), Chr(9))(17)
    
29.          j = j + 1
    
30.          Range("b" & j) = Split(arr(i + 12), Chr(9))(1)
    
31.          Range("c" & j) = Split(arr(i + 12), Chr(9))(2)
    
32.          Range("d" & j) = Split(arr(i + 12), Chr(9))(3)
    
33.          Range("e" & j) = Split(arr(i + 12), Chr(9))(4)
    
34.          Range("f" & j) = Split(arr(i + 12), Chr(9))(5)
    
35.          Range("g" & j) = Split(arr(i + 12), Chr(9))(6)
    
36.          Range("h" & j) = Split(arr(i + 12), Chr(9))(7)
    
37.          Range("i" & j) = Split(arr(i + 12), Chr(9))(8)
    
38.          Range("j" & j) = Split(arr(i + 12), Chr(9))(9)
    
39.          Range("k" & j) = Split(arr(i + 12), Chr(9))(10)
    
40.          Range("l" & j) = Split(arr(i + 12), Chr(9))(11)
    
41.          Range("m" & j) = Split(arr(i + 12), Chr(9))(12)
    
42.          Range("n" & j) = Split(arr(i + 12), Chr(9))(13)
    
43.          Range("k" & j) = Split(arr(i + 12), Chr(9))(14)
    
44.          Range("o" & j) = Split(arr(i + 12), Chr(9))(15)
    
45.          Range("p" & j) = Split(arr(i + 12), Chr(9))(16)
    
46.          Range("q" & j) = Split(arr(i + 12), Chr(9))(17)
    
47.          j = j + 1
    
48.          Next
    
49.         
    
50.       For i = 2757 To 8293 Step 16
    
51.         Range("a" & j) = Split(arr(i), ":")(1)
    
52.          Range("b" & j) = Split(arr(i + 11), Chr(9))(1)
    
53.          Range("c" & j) = Split(arr(i + 11), Chr(9))(2)
    
54.          Range("d" & j) = Split(arr(i + 11), Chr(9))(3)
    
55.          Range("e" & j) = Split(arr(i + 11), Chr(9))(4)
    
56.          Range("f" & j) = Split(arr(i + 11), Chr(9))(5)
    
57.          Range("g" & j) = Split(arr(i + 11), Chr(9))(6)
    
58.          Range("h" & j) = Split(arr(i + 11), Chr(9))(7)
    
59.          Range("i" & j) = Split(arr(i + 11), Chr(9))(8)
    
60.          Range("j" & j) = Split(arr(i + 11), Chr(9))(9)
    
61.          Range("k" & j) = Split(arr(i + 11), Chr(9))(10)
    
62.          Range("l" & j) = Split(arr(i + 11), Chr(9))(11)
    
63.          Range("m" & j) = Split(arr(i + 11), Chr(9))(12)
    
64.          Range("n" & j) = Split(arr(i + 11), Chr(9))(13)
    
65.          Range("k" & j) = Split(arr(i + 11), Chr(9))(14)
    
66.          Range("o" & j) = Split(arr(i + 11), Chr(9))(15)
    
67.          Range("p" & j) = Split(arr(i + 11), Chr(9))(16)
    
68.          Range("q" & j) = Split(arr(i + 11), Chr(9))(17)
    
69.          j = j + 1
    
70.       Next      
    
71. End Sub
    

复制代码

cjc209

这种用PowerQuery处理

zlfwto

719404338 发表于 2018-10-6 15:50

显示无法运行宏，不知道怎么回事