j&, k&, x&
Dim Rng As Range, Rg As Range, tRow&, tCol&
Dim wb As Object, mysht As Worksheet
Set d = CreateObject...tRow = Val(Application.InputBox("请输入总表标题行的行数?"))...savePath & "\"
'不论当前是否是筛选状态,保证A1所在区域成为筛选状态
If ActiveSheet.FilterMode = True Then ActiveSheet.Cells.AutoFilter...Field:=tCol, Criteria1:=r
mysht.Activate
Range(Cells(1, 1), Cells(LastRow, LastCol)).Copy sht.Range...m = m + 1
Next
If ActiveSheet.FilterMode = True Then ActiveSheet.Cells.AutoFilter
Call disAppSet