求助求助，关于用正则表达式识别分列条件并分列

errenyu · 发表于 2024-7-11 18:25

本帖最后由 errenyu 于 2024-7-11 18:28 编辑

大神们，请问下想用VBA实现如下的分组，该如何实现？
识别条件是“数字/字母”或者“数字/汉字”
然后以数字字母之间的/进行分列，最后再对分好的用*分列

小凡、、、 · 发表于 2024-7-11 19:09

我的理解是，按数字分列，把星号替换为空

ykcbf1100 · 发表于 2024-7-11 19:30

楼主这是自找麻烦，同项和不同的项为啥都要用“/"分隔呢？如果一个用”#“，另一个用”/“分隔不是就简单了吗？

longwin · 发表于 2024-7-11 19:33

按上面这些数字的可以不用正则：
1、将”0/“替换为”0|“
2、按”|“ 分
3、按”*“分

小凡、、、 · 发表于 2024-7-11 19:38

正则学习的不多，仅供参考

longwin · 发表于 2024-7-11 19:41

longwin · 发表于 2024-7-11 19:42

未使用正则

ykcbf1100 · 发表于 2024-7-11 19:56

本帖最后由 ykcbf1100 于 2024-7-11 19:57 编辑

longwin 发表于 2024-7-11 19:33
按上面这些数字的可以不用正则：
1、将”0/“替换为”0|“
2、按”|“ 分

如果/前面那个数字不是0呢？工厂4和工厂5都属于这种情况。如果实际数据导入，你这个肯定不能解决问题，只能解决上传附件中的数据问题。

longwin · 发表于 2024-7-11 20:03

本帖最后由 longwin 于 2024-7-11 20:50 编辑

ykcbf1100 发表于 2024-7-11 19:56
如果/前面那个数字不是0呢？工厂4和工厂5都属于这种情况。如果实际数据导入，你这个肯定不能解决问题，只 ...

是的，可以将数字+/的组合替换为数字+|，不能只按照0+/判断

Sub test()
arr = Range("F2:F6")
ReDim brr(1 To UBound(arr), 1 To 10)
For i = 1 To UBound(arr)
s1 = arr(i, 1)
For k = 0 To 9
s1 = Replace(s1, CStr(k) & "/", CStr(k) & "|")
Next
crr = Split(s1, "|")
For j = 0 To UBound(crr)
      drr = Split(crr(j), "*")
      For j2 = 0 To UBound(drr)
         brr(i, j * 2 + 1 + j2) = drr(j2)
      Next
Next
Next
[g1].Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub

longwin · 发表于 2024-7-11 20:07

能把F列数据生成的代码改一下才是根本解决办法

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

[求助] 求助求助，关于用正则表达式识别分列条件并分列