请大神看看，附件的宏要怎么改

魔灬头

如果送货单只有一个，运行宏销售报表会有筛选，如果送货单有多一个以上数据保留，运行宏销售报表就不会筛选，请大神帮忙修改！

chaohuahch

没看懂题目。请描述的清楚一点。或者举例说明

獨一無2

If IsNumeric(Sheets(S).Range("A" & i).Value) And Not "" = Sheets(S).Range("A" & i).Value Then
    .Range("A" & CStr(x + 1)).Value = Application.WorksheetFunction.Text(Sheets(S).Range("L" & i).Value, "yyyy-mm-dd")
    .Range("B" & CStr(x + 1)).Value = Sheets(S).Range("D" & i).Value
    .Range("F" & CStr(x + 1)).Value = Sheets(S).Range("M" & i).Value
    .Range("G" & CStr(x + 1)).Value = Sheets(S).Range("E" & i).Value
    .Range("H" & CStr(x + 1)).Value = Sheets(S).Range("N" & i).Value
   
    End If
    .Range("A1:O1").AutoFilter  '启用销售报表筛选（不用每次保存数据后还要选择数据筛选）
你之前的判断只要A列某一行为空则终止sub，所以只能生成一个的。

魔灬头

chaohuahch 发表于 2018-7-14 16:01
没看懂题目。请描述的清楚一点。或者举例说明

我上传的表格运行完代码如果是像图1只有一份送货单就正常，销售报表自动启用筛选，如果像图2在列下方也保存前几天的送货单的情况下，销售报表就没有筛选

魔灬头

獨一無2 发表于 2018-7-15 09:52
If IsNumeric(Sheets(S).Range("A" & i).Value) And Not "" = Sheets(S).Range("A" & i).Value Then
    . ...

你好，我用你提供的代码运行完后是出现把16行以下的记录也全部复制到销售报表了，我要的是只复制第一份送货单，16行以下的就不复制的

獨一無2

.Range("A1:O" & Cells(Rows.Count, 1).End(xlUp).Row).AutoFilter  '启用销售报表筛选（不用每次保存数据后还要选择数据筛选）
最后一句改成这样符合要求吗？