Office中国论坛/Access中国论坛

标题: excel求助，请教大神 [打印本页]

作者: wei314157 时间: 2016-10-30 23:11
标题: excel求助，请教大神
本帖最后由 wei314157 于 2016-10-30 23:19 编辑

[tr][td=78]

公司系统里面导出的需求报表如左边的格式，想将左边的表快速用函数变成右边的格式，求助怎么实现，拜谢各位大神

作者: wei314157 时间: 2016-10-30 23:13
手动置顶

作者: tmtony 时间: 2016-10-30 23:33
这个我想到的估计要用到VBA
用split函数拆分，循环
分函数的高手请跟贴再提供其它解决办法了

作者: tmtony 时间: 2016-10-31 10:05
周义坤大师帮你给的解决方案
[attach]60185[/attach]

作者: wei314157 时间: 2016-10-31 10:54

tmtony 发表于 2016-10-31 10:05
周义坤大师帮你给的解决方案

谢谢

作者: tmtony 时间: 2016-10-31 15:31
Excel小子使用正则的方法实现：
Function sss(rg As Range, rgs As Range)
Dim re, m
Set re = CreateObject("vbscript.regexp")
re.Global = False
re.Pattern = Format(rgs, "yyyy-mm-dd") & "\/(\d+);"
Set m = re.Execute(rg)
sss = m(0).submatches(0)
End Function

调用

[attach]60186[/attach]

作者: tmtony 时间: 2016-10-31 15:32
周义坤使用SQL的方法实现：

[attach]60187[/attach]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)