Hsieh

¦^´_ 1# yagami12th

§Aªº±Ô­z¸òµ{¦¡½X·N«ä¦n¹³¤£¤@¼Ë
¦pªG¥u¬O¿z¿ïEÄæ¸ê®Æ¤j©ó10ªº¸ê®Æ¶K¨ì·s¤u§@ªí

1. Sub Main()
   
2. Dim Sh As Worksheet
   
3. Application.DisplayAlerts = False
   
4. For Each Sh In Sheets
   
5.   If Sh.Name = "Pick" Then Sh.Delete
   
6. Next
   
7. Application.DisplayAlerts = True
   
8. With Sheet1
   
9. If .FilterMode = True Then .ShowAllData
   
10. .Range("A1").CurrentRegion.AutoFilter 5, ">=10"
    
11. .UsedRange.SpecialCells(xlCellTypeVisible).Copy
    
12. With Sheets.Add
    
13. .Name = "Pick"
    
14. .Paste
    
15. Application.CutCopyMode = False
    
16. End With
    
17. .AutoFilterMode = False
    
18. End With
    
19. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 3# yagami12th

If Worksheets(sheetName).Cells(rowChoose, 5).Value > 10 Then
    Flag = 1 '¥u¿ï¨ú«ü©wsheetªº¸ê®Æ°µ¿z¿ï
Else
End If
End Sub

Hsieh

¦^´_ 8# yagami12th

¨S¦³pasteSheet¦WºÙªº¤u§@ªí