Excel 从文本文件中提取零件

OP3 下面我粘贴了一个我想读入Excel的文本文档示例。 此文本文档通过数控铣床（使用触摸探针测量）保存到PC。它需要读取的文本文件在布局长度上可能有所不同（见下文）

我想使用“=”等号来查找值将是最好的选择。但是“=”等号和度量结果之间的空格“”的数量可能会有所不同。（看起来这取决于测量值的长度，当测量“-31.594”时，等号和数字之间将少2个空格。然后，当测量例如“0.274”时

也许最好删除所有空格

---

---

我只想在某张Excel表格的B列中插入测量结果

Column B:
31.594
31.596
31.590
11.402
0.274
0.273

范围（“A1”）。选择
i=0
在ActiveCell.Offset（0,1）时执行此操作。值“”
i=i+10
ActiveCell.Value=i
ActiveCell.Offset（1，0）。选择
环

---

在将度量值粘贴到Excel中后，我将使用上面的代码对数据进行编号，如10、20、30等。

因此……您只需有人编写所有代码，从一个未公开的位置打开TXT文件，将打开文件中的所有值逐行解析到一个未公开的列中，关闭TXT文件，然后重新打开将控制权交还给您，以便可以对行重新编号…？如果您

按delimeter
=
拆分字符串，它应该足够了…具有
“12.34”
+0->
12.34
…您也可以
使用cdbl（）
或类似的内容that@Jeeped也许我可以更概括地解释我的问题，更像这样：“‘如何复制等号后面的值？’@Dirk听起来很有用，我要试试。谢谢！使用：
split（[string]，[delimeter]）
，当它返回一个数组时，默认情况下您可以访问它（第一项从0开始）=>
split（ActiveCell.Value，“=”）（1）
将为您提供所需的字符串：）
Column B:
31.594
31.596
31.590
11.402
0.274
0.273

Range("A1").Select  
i=0
Do while ActiveCell.Offset(0,1).Value <>""
    i= i + 10
    ActiveCell.Value = i
    ActiveCell.Offset(1 , 0).Select
Loop