2017年7月28日
20170728xlVba SSC_LastTwoDays
摘要： Public Sub SSCLastTwoDays() Dim strText As String Dim Reg As Object, Mh As Object, OneMh As Object Dim i As Long Set Reg = CreateObject("Vbscript.Regexp") With Reg .Mult... 阅读全文
posted @ 2017-07-28 22:05 wangway 阅读(378) 评论(0) 推荐(0)
20170728xlVba SSC_TODAY
摘要： Public Sub SSC_TODAY() Dim strText As String Dim Reg As Object, Mh As Object, OneMh As Object Dim i As Long With CreateObject("MSXML2.XMLHTTP") .Open "GET", "http://cp.360.c... 阅读全文
posted @ 2017-07-28 22:04 wangway 阅读(328) 评论(0) 推荐(0)
20170728xlVba简单的匹配
摘要： Sub MatchData() Dim i As Long, EndRow As Long, Key As String Dim Rng As Range Dim Dic As Object Set Dic = CreateObject("Scripting.Dictionary") '获取数据来源 With Sheets("数据来源") ... 阅读全文
posted @ 2017-07-28 17:12 wangway 阅读(211) 评论(0) 推荐(0)
20170728xlVBA改转置一例
摘要： Sub 导出() Dim Sht As Worksheet, ShtName As String Dim NextRow As Long, NextRow2 As Long Dim iRow As Long, Index As Long Dim mySum As Double iRow = 2 Sheets("地块表").Activat... 阅读全文
posted @ 2017-07-28 09:35 wangway 阅读(514) 评论(0) 推荐(0)