正则表达式的问题

ME.李 · 发表于 2023-3-14 23:37

本帖最后由 ME.李于 2023-3-14 23:40 编辑

现在有一组数据，需要拆成正面反面上面，正确的结果如下图，

小弟写的正则表达只能实现现在这种效果

，请问该怎么修改代码了

liulang0808 · 发表于 2023-3-15 07:46

判断一下sj.count ，如果是2该怎么放结果，

ME.李 · 发表于 2023-3-15 07:52

liulang0808 发表于 2023-3-15 07:46
判断一下sj.count ，如果是2该怎么放结果，

但是好像不对，因为/斜杠前面就两种格式，一种是1.0/2.0 0.8/1.5 另外一种是 1.0+1.0/2 0.8+0.6/1.5 这种，判断sj.count 似乎只能处理一种格式

liulang0808 · 发表于 2023-3-15 08:03

Sub 测试()
Dim ss, k
Set reg = CreateObject("vbscript.regexp")
With reg
      .Global = True
      .Pattern = "\d+\.\d+"
      For Each ss In Range("A1", Cells(Rows.Count, "A").End(xlUp))
         Set sj = .Execute(ss)
         If sj.Count = 3 Then
            n = 0
            For Each ss1 In sj
                  n = n + 1
                  If VBA.IsNumeric(ss1) Then
                     ss.Offset(0, n) = ss1 + 0
                  Else
                     ss.Range("a" & k).Offset(0, n) = ss1
                  End If
            Next
         Else
            n = -1
            For Each ss1 In sj
                  n = n + 2
                  If VBA.IsNumeric(ss1) Then
                     ss.Offset(0, n) = ss1 + 0
                  Else
                     ss.Range("a" & k).Offset(0, n) = ss1
                  End If
            Next
         End If
      Next
End With
End Sub

liulang0808 · 发表于 2023-3-15 08:03

也可以考虑使用split拆分的

ME.李 · 发表于 2023-3-15 08:48

本帖最后由 ME.李于 2023-3-15 08:51 编辑

liulang0808 发表于 2023-3-15 08:03
也可以考虑使用split拆分的

1.请问现在跑出来的格式是对的，但是在反面这一栏数据是空的这个时候该如何赋值了

2.就是当数据跑出来后，需要在集合哪里按照正面反面上面的数字，每行生成一段文字，这个时候是不是需要循环之前的行数。然后 cells（E,K）=正面&cells（B，K）&反面&cell（C,K）这种赋值了

liulang0808 · 发表于 2023-3-15 08:57

新建 Microsoft Excel 工作表 - 副本.zip (13.36 KB, 下载次数: 2)
供参考。。。。。

LIUZHU · 发表于 2023-3-15 09:02

JS宏

LIUZHU · 发表于 2023-3-15 09:03

WPS测试有效

ME.李 · 发表于 2023-3-15 09:47

liulang0808 发表于 2023-3-15 08:57
供参考。。。。。

第二个问题，怎么处理了就是根据跑出数据，生成文字那种，是不是需要循环

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