Excel数据处理，求助各位大神的解法

镜123 · 发表于 2022-1-18 22:56

根据A列内容计算出B列

小课课时计算.zip (10.9 KB, 下载次数: 9)

zxsea_7426 · 发表于 2022-1-19 00:58

正则法则不会，所以只能用笨办法。要用正则提取应该更好。我的办法感觉应该还有缺陷，但还没有出现。有会正则的高手.求解

liulang0808 · 发表于 2022-1-19 08:06

Sub 课时提取()
Dim sm As Double
arr = Sheet1.Range("A2:b" & Sheet1.[a65535].End(3).Row)

Set reg = CreateObject("VBScript.RegExp")
reg.Global = True
reg.Pattern = "\((\d+)课时\)\*(\d+)"

For i = 1 To UBound(arr)
      sm = 0
      For Each m In reg.Execute(arr(i, 1))
         sm = sm + Val(m.submatches(0)) * Val(m.submatches(1))
      Next
      arr(i, 2) = sm
Next i
Sheet1.[a2].Resize(UBound(arr), 2) = arr
End Sub

liulang0808 · 发表于 2022-1-19 08:16

。。。。。。。。。。。。。。。

东南西北中发财 · 发表于 2022-1-19 08:36

=MID(A2,FIND("(",A2)+1,FIND("课时",A2)-FIND("(",A2)-1)*MID(A2,FIND("*",A2)+1,FIND("=",A2)-FIND("*",A2)-1)

镜123 · 发表于 2022-1-19 23:16

东南西北中发财发表于 2022-1-19 08:36
=MID(A2,FIND("(",A2)+1,FIND("课时",A2)-FIND("(",A2)-1)*MID(A2,FIND("*",A2)+1,FIND("=",A2)-FIND("*",A ...

谢谢大神的指点～

镜123 · 发表于 2022-1-19 23:17

liulang0808 发表于 2022-1-19 08:16
。。。。。。。。。。。。。。。

谢谢大神的解惑～

镜123 · 发表于 2022-1-19 23:18

zxsea_7426 发表于 2022-1-19 00:58
正则法则不会，所以只能用笨办法。要用正则提取应该更好。我的办法感觉应该还有缺陷，但还没有出现。有会正 ...

谢谢大神的热心解答，暖暖的～

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

[求助] Excel数据处理，求助各位大神的解法

评分