摘要：
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... 阅读全文
摘要：
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... 阅读全文
摘要：
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("数据来源") ... 阅读全文
摘要：
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... 阅读全文