说明你的单项产品明细超过了600行,一般是较少有这样多的数据。
可将库存明细的宏改为
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
With Sheets("数据库")
.Unprotect
.Range("A2:S19" & .Range("A65536").End(3).Row).Sort Key1:=.Range("C2"), Order1:=xlAscending
'.Protect
End With
If Range("M65500").End(3).Row > 600 Then '删除多余格式行
ActiveSheet.Unprotect
Rows("550:65500").Delete
ActiveSheet.Protect
End If
MX
Application.ScreenUpdating = True
End Sub
若还不行,请将文件发给我,看看啥原因。 dh_dq@163.com