|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- Sub 计算()
- Dim vData As Variant, nRow As Integer, vFill As Variant
- Dim regExp As Object, sStr As String, oData As Object, nData As Integer
- Dim nSum As Double
-
- vData = Sheet1.UsedRange.Value
- If UBound(vData) < 2 Then Exit Sub
- ReDim vFill(2 To UBound(vData), 1 To 1)
- Set regExp = CreateObject("vbscript.regexp")
- With regExp
- .Global = True
- .Pattern = "线上代扣\d+"
- For nRow = 2 To UBound(vData)
- sStr = vData(nRow, 1)
- nSum = 0
- Set oData = .Execute(sStr)
- If oData.Count > 0 Then
- For nData = 1 To oData.Count
- nSum = nSum + Val(Replace(oData(nData - 1), "线上代扣", ""))
- Next
- End If
- vFill(nRow, 1) = nSum
- Next
- End With
- [B2].Resize(UBound(vFill) - 1) = vFill
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|