Function zhengze(Rng As Range)
    Set regx = CreateObject("vbscript.regexp")

With regx

  .Global = True

  .Pattern = "\d{4}-\d{2}-\d{2}" '写正则表达式
  Set mat = .Execute(Rng)'存储匹配到的集合
  For Each mg In mat'循环读取存储了匹配结果的列表
     If .test(Rng) Then
        zhengze = mg'匹配到值，则返回值到单元格
     Else
        zhengze = 0
  'Set mat = .Execute(value)

 
      

      'cells 单元格 读取单元格内容，将内容写入单元格,将变量rg的值输入到c列的n行

    End If
   Next

End With
End Function

最新文章

1. 使用 MimeKit 和 MailKit 发送邮件
2. 实验五（简单嵌入式WEB服务器实验）问题总结
3. 查看Android应用的package name和activity name方面
4. 【转】 使用maven创建web项目
5. floyd算法 poj2253
6. 关于JS的数据类型的一些见解
7. Keyframes介绍
8. Google Analytics SEO 实时 网站 访问量 统计
9. hadoop优点和缺点
10. ts 使用Visual Studio2012和TFS网站管理源代码
11. [AngularJS学习笔记] 基础学习01
12. Java多线程-线程的锁总结
13. java中如何操作数据库（增删改查）
14. JAVA命令参数详解
15. linux学习（一）认识、安装Linux
16. C#实现的HttpGet请求
17. c++ 积累
18. Eclipse Maven: Cannot change version of project facet Dynamic web to 3.0 的解决方法
19. M2阶段团队个人贡献分
20. 解决 https urlopen error [SSL: CERTIFICATE_VERIFY_FAILED] 错误

热门文章

1. Spring 实现策略模式--自定义注解方式解耦if...else
2. Java集合详解（五）：Hashtable原理解析
3. Linux服务之DHCP服务篇（scp）
4. Java forEach 方式遍历集合（Java 8 新特性）
5. nginx 的基础知识（二）
6. MySQL next-key lock 加锁范围是什么？
7. 在 Visual Studio 里一秒打开 ILSpy，并反编译当前项目
8. 如何在Linux中自动删除或清理/tmp文件夹内容？
9. GO学习-(1) why go？
10. mybatis-plus 分页查询+ dao层抽象