逐行插入Z值，求老师帮忙修改一下代码。

wbjiqpl

需求就是逐行查找是不是有Z值（带小数3位的Z值），找到匹配的记录下来，接着查找下一行，下一行有F值（带小数3位的F值）同时没有Z值，就在F值前插入记录的Z值。然继续查找下一行，直到遇到第二个Z值更新记录，重新查找插入
这段代码运行出来的结果是这样的
G0 X895.451 Y486.901 Z40.000;
G1 X895.451 Y486.901 Z-0.100 F4500.000;
G1 X895.451 Y478.899 F15000.000;
G1 X811.449 Y478.899 Z-0.100 F15000.000;
G1 X811.449 Y486.901 F15000.000;
G1 X895.451 Y486.901 Z-0.100 F15000.000;
G0 Z40.000;
G0 X895.451 Y486.901 Z40.000;
G1 X895.451 Y486.901 Z-0.500 F4500.000;
G1 X895.451 Y478.899 F15000.000;
G1 X811.449 Y478.899 Z-0.500 F15000.000;
可我要的结果是这样的
G0 X895.451 Y486.901 Z40.000;
G1 X895.451 Y486.901 Z-0.100 F4500.000;
G1 X895.451 Y478.899 Z-0.100 F15000.000;
G1 X811.449 Y478.899 Z-0.100 F15000.000;
G1 X811.449 Y486.901 Z-0.100 F15000.000;
G1 X895.451 Y486.901 Z-0.100 F15000.000;
G0 Z40.000;
G0 X895.451 Y486.901 Z40.000;
G1 X895.451 Y486.901 Z-0.500 F4500.000;
G1 X895.451 Y478.899 Z-0.500 F15000.000;
G1 X811.449 Y478.899 Z-0.500 F15000.000;
我的初始数据是这样的
G0 X895.451 Y486.901 Z40.000;
G1 X895.451 Y486.901 Z-0.100 F4500.000;
G1 X895.451 Y478.899 F15000.000;
G1 X811.449 Y478.899 F15000.000;
G1 X811.449 Y486.901 F15000.000;
G1 X895.451 Y486.901 F15000.000;
G0 Z40.000;
G0 X895.451 Y486.901 Z40.000;
G1 X895.451 Y486.901 Z-0.100 F4500.000;
G1 X895.451 Y478.899 F15000.000;
G1 X811.449 Y478.899 F15000.000;

蓝桥玄霜

新建一个工作簿，输入代码；把原始数据.txt文件放在工作簿所在的文件夹里面
执行代码即可。

longwin

这样试一下看：

usedrange

参与学习

1. Sub t()
   
2.     Dim arr, m%, i%, r%, re, st, wb, n, tp
   
3.     Set re = CreateObject("vbscript.regexp")
   
4.     m = [a1].End(4).Row
   
5.     [b1:c100000].ClearContents
   
6.     wb = ""
   
7.     With re
   
8.         For i = 1 To m
   
9.             .Pattern = "Z[-\d]+\.\d+"
   
10.             .Global = True
    
11.             Set st = .Execute(Range("a" & i))
    
12.             n = InStr(Cells(i, 1), "F")
    
13.             If st.Count > 0 Then
    
14.                 wb = st(0)
    
15.                 Cells(i, 2) = Cells(i, 1)
    
16.                 Cells(i, 3) = wb
    
17.             ElseIf n And wb <> "" Then
    
18.                 tp = Mid(Cells(i, 1), n)
    
19.                 Cells(i, 2) = Replace(Cells(i, 1), Mid(Cells(i, 1), n), wb) & " " & tp
    
20.             End If
    
21.         Next i
    
22.     End With
    
23.     Set re = Nothing
    
24. End Sub

复制代码

wbjiqpl

我自已已经改好了，不过还是要谢谢各位老师无私的帮助。谢谢