在“销售数据表“”里面加一行就出错，请指教

钱不够花 发表于 2021-9-24 17:18:00

Sub 销售条件查询()
If Cells(1, 14).Value = "" Or Cells(1, 14).Value = 1 Then
Sheets("销售数据").Columns("A:l").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("a4:l4"), CopyToRange:=Range("a4:l4"), Unique:=False
Application.Calculation = xlCalculationAutomatic'自动重算
Range("a4:l65536").Select
Selection.AutoFilter
Else
Call 销售清空筛选
MsgBox ("货号错误请查证后重新查询")
End If

风中草 发表于 2021-11-6 16:28:23