UC知道求一VBA编程程序
来源：百度知道 编辑：UC知道 时间：2024/06/10 08:24:29
M48
M72
T01C0.0320
T02C0.0440
%
T01
X9792Y15853
X14792Y15853
X14792Y20353
X14792Y24353
X9792Y24353
X9792Y20353
X11792Y28853
X12792Y28853
T02
X10292Y10353
X14292Y10353
M30
如果着是在EXCEL的表格里面是第一列，我想提取X和Y的数据，T代表的是工具，分别生成在第2，3，4列中成这样的形式：
X Y T
9792 15853 01
14792 15853 01
应该怎么编这个程序，请详细说明具体操作过程，我是菜鸟，
跪求！！！！！！！
各位大虾帮帮忙，之后还会加分
M72
T01C0.0320
T02C0.0440
%
T01
X9792Y15853
X14792Y15853
X14792Y20353
X14792Y24353
X9792Y24353
X9792Y20353
X11792Y28853
X12792Y28853
T02
X10292Y10353
X14292Y10353
M30
如果着是在EXCEL的表格里面是第一列，我想提取X和Y的数据，T代表的是工具，分别生成在第2，3，4列中成这样的形式：
X Y T
9792 15853 01
14792 15853 01
应该怎么编这个程序，请详细说明具体操作过程，我是菜鸟，
跪求！！！！！！！
各位大虾帮帮忙，之后还会加分
按Alt+F8，在“宏名(M)”下的编辑框里输入“拆分数据”，单击“创建(C)”,
在打开的VBA编辑器里输入以下代码，然后按F5运行就行了。在Excel运行的时候还是按Alt+F8，然后选中“拆分数据”，单击“运行(R)”。
Sub 拆分数据()
For 行 = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
原值 = Cells(行, 1)
If Left(原值, 1) = "T" Then 工具 = Right(原值, 2)
If Left(原值, 1) = "X" Then
Y位置 = InStr(1, 原值, "Y")
X = Mid(原值, 2, Y位置 - 2)
Y = Mid(原值, Y位置 + 1)
Range(Cells(行, 2), Cells(行, 4)) = Array(X, Y, 工具)
End If
Next
Columns("D:D").NumberFormat = "00"
End Sub