摘要:
Public brr, brr_ykfp Private Sub initData() With Sheets("历史数据") .Cells.ClearContents .Cells.Interior.ColorIndex = 0 .[d1] = "开票日期" End With End Sub Su 阅读全文
摘要:
Public res_cnt Public ar_res(1 To 100, 1 To 20) Public k Sub main() Call varInit Call ReadFile Call outputLastManyRow '输出遗漏的尾巴行数 End Sub Private Sub R 阅读全文
摘要:
Public Function sort(arr As Variant) Dim MaxV As Variant a = UBound(arr) b = a For i = a To 0 Step -1 MaxV = arr(i) For j = 0 To b If arr(j) > MaxV Th 阅读全文
摘要:
'DictionaryMethodMulOverload'常见字典应用方法及重载'subtotal 分类汇总Function subTotal(arr As Variant) Dim d As Object Set d = CreateObject("scripting.dictionary") F 阅读全文
摘要:
Sub main() '归并排序a = c_randomize_not_repeated.getRandDigitsort aDebug.Print 1End Sub Sub sort(a)Dim aux()ReDim aux(UBound(a))doSort a, aux, 0, UBound(a 阅读全文