如何批量导入txt文件数据，并做一些处理？

MyExcel6933

　　现在每次处理实验数据，将几个或几十个txt文件的数据导入到Excel文中进而作图。而现在我每次都是一个个导入，浪费了大量时间，请问有没有快点的方法实现数据导入。　　具体的需求如下：
　　(1) 现在每个txt数据都由两列数构成，所有txt文件的第一列数据都相同。
　　(2) 所有数据导入一个Excel的一个sheet中，由于第一列数据都相同，因此只保留一个，放在第一列，其余全部删除；第二列数据从B列开始依次排开。
　　(3) 每个txt文件开头会有测试仪器自动加入的测试信息，全部删除，不导入。这些信息一般以英文字母开头，偶尔会有几行空行，但每批中所有txt文件中测试信息的格式和行数都相同。
　　(4) 为区别对应的数据，以及后期在origin中作图方便，因此，在第一行中对应位置（每个第二列数据的正上方）插入该列数据所来自文件的文件名，因此数据从Excel的第二行开始。
　　附件我用我最笨的方法做了一个例子，请问各位大神有没有什么快速的方法实现上述功能？？？

刀羊

建制宏吧，让代码替你一个一个的来。

hahaoookkk

粗略做了一个，三个按钮完成。试试看吧

MyExcel6933

hahaoookkk 发表于 2017-4-29 22:57
粗略做了一个，三个按钮完成。试试看吧

太感谢了，基本满足了我的需求，但还有两个问题要请教，如下

先上代码：

Private Sub CommandButton3_Click()

Application.ScreenUpdating = False
Dim i

    Sheets(2).Range(Sheets(2).Cells(19, 1), Sheets(2).Cells(1119, 2)).Copy
    Sheets(1).Cells(2, 1).PasteSpecial Paste:=xlPasteValues
   
For i = 2 To Worksheets.Count

    Sheets(i).Range(Sheets(i).Cells(19, 2), Sheets(i).Cells(1119, 2)).Copy
    Sheets(1).Cells(2, i).PasteSpecial Paste:=xlPasteValues
   
    Sheets(1).Cells(1, i) = Sheets(i).Name
   
Next

ThisWorkbook.Sheets(1).Select

Range("a1").Select
MsgBox "合并完成", 64, "提示"
CommandButton3.Enabled = False
Application.ScreenUpdating = True

End Sub

关于以上这部分代码，我想请教两个问题：
(1) 如果前面的非数据部分不是18行（比如换个仪器），我只要把这段代码里的所有“19”换成相应txt文件中数据起始行的行数就可以是不是？
(2) 这段代码里的1119是我给的txt文件中数据的总行数，如果换个数据行数变了，就把这个数字改一下就可以是不是？那么我直接改一个比较大的数，比如10000再保存，不出意外我的任何需求都能满足，那我以后就可以直接用了是不是？

先谢谢了

hahaoookkk

改了一下，原数据第一列从纯数据开始提取，和自动计算楚数据行数

Private Sub CommandButton3_Click()

Application.ScreenUpdating = False
Dim i, uu, kk, rr
Dim pp
uu = Sheets(2).Cells(65536, 1).End(xlUp).Row
'ThisWorkbook.Sheets(2).Select
For kk = 1 To uu
pp = Sheets(2).Range("A" & kk)
If Not VBA.IsNumeric(pp) Then

kk = kk + 1
rr = kk
End If

Next


    Sheets(2).Range(Sheets(2).Cells(rr + 1, 1), Sheets(2).Cells(uu, 2)).Copy
    Sheets(1).Cells(2, 1).PasteSpecial Paste:=xlPasteValues
   
For i = 2 To Worksheets.Count

    Sheets(i).Range(Sheets(i).Cells(rr + 1, 2), Sheets(i).Cells(uu, 2)).Copy
    Sheets(1).Cells(2, i).PasteSpecial Paste:=xlPasteValues
   
    Sheets(1).Cells(1, i) = Sheets(i).Name
   
Next

ThisWorkbook.Sheets(1).Select

Range("a1").Select
MsgBox "合并完成", 64, "提示"
CommandButton3.Enabled = False
Application.ScreenUpdating = True

End Sub

MyExcel6933

hahaoookkk 发表于 2017-4-30 19:44
改了一下，原数据第一列从纯数据开始提取，和自动计算楚数据行数

Private Sub CommandButton3_Click()

太感谢了，完美解决了我的问题
有个这个，估计我每周能多看一两部电影

MyExcel6933

hahaoookkk 发表于 2017-4-29 22:57
粗略做了一个，三个按钮完成。试试看吧

默默地问一句，您给我的这个Excel文件的代码里边还有一个需要输密码的工程“ChemDrawExcel14”，这个怎么删掉？？现在无论我打开哪个Excel文件，还是新建一个Excel文件，它的VBA代码工程栏里都显示这个，能删掉吗？

hahaoookkk

MyExcel6933 发表于 2017-5-3 21:32
默默地问一句，您给我的这个Excel文件的代码里边还有一个需要输密码的工程“ChemDrawExcel14”，这个怎么 ...

不是我这个文件的问题，应该是你电脑excel自动加载的，点文件，选项，加载项，
自己选择添加或删除

三木四叶

大神威武，顶顶顶顶顶!

MyExcel6933

hahaoookkk 发表于 2017-5-4 00:38
不是我这个文件的问题，应该是你电脑excel自动加载的，点文件，选项，加载项，
自己选择添加或删除

妥了，已解决。是我安装的一个软件自动插入的