摘要：
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Public Sub GatherDataPicker() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Cal... 阅读全文
摘要：
Public Sub SplitData() Dim Wb As Workbook Dim Sht As Worksheet Dim NewSht As Worksheet Dim arr As Variant Dim Brr() Set Wb = Application.ThisWorkbook Set Sht = Wb.Works... 阅读全文