ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦Û°Ê²£¥Í¤£¦P¦WºÙªºSHEET

[µo°Ý] ¦Û°Ê²£¥Í¤£¦P¦WºÙªºSHEET

working.rar (7.76 KB) ¥i§_¥ÎVBA«ö³¡ªù½s¸¹, ¦Û°Ê²£¥Í¥H³¡ªù½s¸¹¬°¦WºÙªºSHEET?

Sub ¤@()
For i = 1 To 3
Cells(1, 1).AutoFilter 2, i
Cells(1, 1).CurrentRegion.Copy
Worksheets.Add After:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = "SHEET" & i
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets(1).Select
ActiveSheet.ShowAllData
Next i
ActiveSheet.AutoFilterMode = False
End Sub

TOP

¦^´_ 2# ¹q·xÄl

·PÁÂ!

TOP

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD