求助：能否将按钮1和2编到一个按钮上

高效的EXCEL

能否将按钮1和2编到一个按钮上，复制后再展开到筛选前状态？

余余1982

1. Sub 按钮17_单击()
   
2. Range("A10:h29").AutoFilter Field:=8, Criteria1:=">0"
   
3. If Sheets("录入").Cells(10, 3) <> "" Then
   
4. Dim a As Long
   
5. a = Sheets("录入").[c29].End(xlUp).Row
   
6. Sheets("录入").Range("A10:k" & a).Select
   
7. Selection.Copy
   
8. Dim b As Long
   
9. b = Sheets("汇总数据").[a65536].End(xlUp).Row + 1
   
10. Sheets("汇总数据").Select
    
11. Sheets("汇总数据").Cells(b, 1).Select
    
12. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    
13.         :=False, Transpose:=False
    
14. Sheets("录入").Range("c10:c29").ClearContents
    
15. Sheets("录入").Range("i10:i29").ClearContents
    
16. Sheets("录入").Select
    
17. Sheets("录入").Cells(7, 2).Select
    
18. Else
    
19. MsgBox "请输入条形码及数量"
    
20. End If
    
21. Range("A10:h29").AutoFilter Field:=8
    
22. End Sub
    
23. 
    

复制代码