¥Ø«e¶·¤â°Ê«Ø¥ß¿z¿ïÄæ¦ì¤ºªº¤À¶¤~¯à¦Û°Ê¾É¤J¸ê®Æ- Sub Ex()
- Dim Sh As Worksheet
- With Sheets("·JÁ`©ú²Ó")
- For Each Sh In Sheets 'Sheets : ¤u§@ªíª«¥óªº¶°¦Xª«¥ó
- If Sh.Name <> .Name Then '¤u§@ªíªº¦WºÙ<>"·JÁ`©ú²Ó"
- .Range("A1").AutoFilter Field:=2, Criteria1:=Sh.Name
- '"·JÁ`©ú²Ó" ¦Û°Ê¿z¿ï ¿z¿ï°ò·ÇÄæ¦ì:=²Ä2Äæ , ¿z¿ï·Ç«h:="¤u§@ªí¦WºÙ"
- .UsedRange.Columns("a:d").Copy Sh.[a1] '"·JÁ`©ú²Ó" ¦Û°Ê¿z¿ï«áªº¸ê®Æ, ½Æ»s
- End If
- Next
- .Range("A1").AutoFilter '¨ú®ø "·JÁ`©ú²Ó"¦Û°Ê¿z¿ï¼Ò¦¡
- End With
- End Sub
½Æ»s¥N½X |