摘要：Sub test() arr = pickfiles If arr(1) "None" Then For i = LBound(arr) To UBound(arr) Debug.Print arr(i) Next i End If End Sub Function pickfiles() ... 阅读全文

摘要：预留 阅读全文

摘要：Public Sub PrintSelectRow() Dim Wb As Workbook Dim iSht As Worksheet Dim rSht As Worksheet Dim pSht As Worksheet Dim Rng As Range, ActiveRow As Long Dim Arr As Variant, Ar As ... 阅读全文

摘要：'2017年11月13日 'Next_Seven '功能：文件夹对话框指定文件夹下，合并（复制粘贴）每个Excel文件内的指定子表内容， '在名为"设置"的工作表A列 输入汇总子表的名称 在B列输入汇总子表的表头行数 'C列自动输出 有效汇总的sheet个数 Public Sub 指定文件夹多簿多表分表合并() AppSettings True Dim StartTime As... 阅读全文