[已解决]如何删除指定符号后面的数据

colour250 · 发表于 2016-4-5 21:06

例如A列的单元格，内容为12356-2222或4598-023 ，如何删除“-”后面的数据，谢谢,如果只删除除“-0*”后的所有数据。

最佳答案

dsmch

2016-4-6 22:37

Sub Macro1()
For i = 2 To Range("a65536").End(xlUp).Row
x = Split(Cells(i, 1), "-")
If Left(x(1), 1) = "0" Then Cells(i, 1) = "'" & x(0) & Right(x(1), 2) Else Cells(i, 1) = "'" & x(0)
Next
End Sub

复制代码

爱疯 · 发表于 2016-4-5 21:41

colour250 · 发表于 2016-4-6 13:20

本帖最后由 colour250 于 2016-4-6 13:22 编辑

爱疯发表于 2016-4-5 21:41

谢谢，数据如下125364-2,12563-01,25632-9,25896-001,25145-31,125478-11,除了-0开始的不删除，其他的都删除。也就是-2,-21,-11,-9……这些都删除。
请问用vba怎么写？

爱疯 · 发表于 2016-4-6 14:27

可能代码放到实际数据中后，你不会修改，或还需修改需求，建议上传一部分的实际数据。

dsmch · 发表于 2016-4-6 21:28

复制代码

colour250 · 发表于 2016-4-6 22:19

爱疯发表于 2016-4-6 14:27
可能代码放到实际数据中后，你不会修改，或还需修改需求，建议上传一部分的实际数据。

谢谢！

colour250 · 发表于 2016-4-6 22:24

dsmch 发表于 2016-4-6 21:28

这样操作会将单号不含有“-0。。。”都删除的。
例如我有单号：123456-01 ，1234567-001，，123456-2 执行操作后我希望的结果是 12345601 ，，123456701，，123456
谢谢！

爱疯 · 发表于 2016-4-6 22:25

colour250 发表于 2016-4-6 22:19
谢谢！

你先试试5楼办法，如果不行，再提出来吧

colour250 · 发表于 2016-4-6 22:27

爱疯发表于 2016-4-6 22:25
你先试试5楼办法，如果不行，再提出来吧

5楼的操作试过了，会将所有不含有“-0*”的单号都删除。

colour250 · 发表于 2016-4-6 22:32

结果001怎么变成01？这个是挺麻烦的，可以省去不理了，现在只想单号有-01的就保留不变，只要单号不是-01的就直接删除以-开始后面的数据。应该可以用替换的方式+正则表达式实现，可是VBA不会写。谢谢

		自动登录	找回密码
密码			注册