关于数据提取的编程

来源：百度知道 编辑：UC知道 时间：2024/05/31 22:37:44
%
M48
M72
T01C0.0320
T02C0.0440
%
T01
X9792Y15853
X14792Y15853
X14792Y20353
X14792Y24353
X9792Y24353
X9792Y20353
X11792Y28853
X12792Y28853
T02
X10292Y10353
X14292Y10353
M30
如果这样一个在EXCEL的表格里面，我想提取X和Y的数据，在EXCEL里面成这样的形式：
X Y T
9792 15853 01
14792 15853 01
应该怎么编这个程序，跪求！！！！！！！
各位大虾帮帮忙
谢谢1楼高手，有个问题，我把你的复制进去后，第2行和第3行有错误，你能把详细过程一步步说下吗？谢谢了

Sub tqsj()

'2007/7/31

‘提取数据.xls

Dim Sht1 As Worksheet, Sht2 As Worksheet

Dim Myr%, Myc%, x%, n%, n1%, n2%, nn%

Dim aa%, bb%, r1, r2, j%

Dim Firstadd, Nextadd, i%

Set Sht1 = Sheets("原数据")

Set Sht2 = Sheets("提取后数据"): n = 2

Sht1.Activate

Myr = [b65536].End(xlUp).Row

Set r1 = Range("b1:b" & Myr).Find(99999)

If Not r1 Is Nothing Then

n1 = r1.Row

Firstadd = r1.Address

Sht2.Cells(n, 1) = r1.Offset(1, 0)

Do

Set r1 = Range(Cells(n1 + 1, 2), Cells(Myr, 2)).Find(r1)

If Not r1 Is Nothing Then

Nextadd = r1.Address

If Nextadd <> Firstadd Then

n2 = r1.Row

Sht2.Cells(n + 1, 1) = r1.Offset