如何统计有单位名称并有四则运算的数据

作者：绿色风分类：时间：2022-08-17 浏览：129

楼主 yjzstar	Q:如何统计有单位名称并有四则运算的数据?如下图所示已知单元格中的各类型文件数量，如何将其汇总？ A:通过使用字典将单元格中的中文替换为运算符“+”，然后再根据“+”出现的位置对其进行适当的替换，最终使用Evaluate函数便可求得结果！具体程序如下： Sub dd() Dim obj As Object Dim arr() Dim rng As Range Dim i As Integer, j As Integer Dim x As Integer Set obj = CreateObject("VBScript.regExp") For Each rng In Selection With obj .Global = True .Pattern = "\W" If .test(rng) Then i = i + 1 ReDim Preserve arr(1 To i) arr(i) = .Replace(rng, "+") End If End With x = InStr(rng, "") If x <> 0 Then arr(i) = Application.WorksheetFunction.Replace(arr(i), x, 1, "") End If For j = 1 To Len(arr(i)) If j = 1 Or j = Len(arr(i)) Then If Mid(arr(i), j, 1) = "+" Or Mid(arr(i), j, 1) = "" Then arr(i) = Application.WorksheetFunction.Replace(arr(i), j, 1, "哈") End If Else If Mid(arr(i), j, 1) = "+" And Mid(arr(i), j + 1, 1) = "+" Or Mid(arr(i), j + 1, 1) = "" Then arr(i) = Application.WorksheetFunction.Replace(arr(i), j, 1, "哈") End If End If Next arr(i) = Replace(arr(i), "哈", "") arr(i) = Application.Evaluate(arr(i)) Next Range("J4").Resize(i, 1) = Application.WorksheetFunction.Transpose(arr) Set objRegExp = Nothing End Sub 有单位名称并有四则运算的数据统计.rar
2楼开心二点	万恶的正则，哎
3楼水星钓鱼	有用,感谢分享
4楼老糊涂	学习

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表