북곰님..

고급필터를 활용하시면 됩니다.

특정 시트에 집어 넣는 것은 VBA를 이용하시면 되구요..

다운받기 : abyul.com_20130408_splitDataWithAdFilter.xlsm

그리고 최근 질문에 대한 답변에 피드백이 없습니다.

새로 질문하시기 전에 기존 질문 답변에 대한 피드백을 꼭 확인하시고 질문하시기 바랍니다.

답변에 대한 피드백은 기본 에티켓이 아닌가 합니다.

Option Explicit

'### 고급필터를 활용한 데이터 분리 작업

Sub abSplitDataWithAdFilter()

    Dim rSource As Range, rCriteria As Range

    Dim shtTarget As Worksheet, rTarget As Range

    Set rSource = Sheets("SIZE 225 2000족").Range("B2:F7")

    Set rCriteria = rSource.Parent.Range("L1:L2")

    On Error Resume Next

    Set shtTarget = Sheets("Sheet" & rSource.Parent.Range("B1").Value)

    If Err.Number <> 0 Then

        Set shtTarget = Sheets.Add(after:=Worksheets(Worksheets.Count))

        shtTarget.Name = "Sheet" & rSource.Parent.Range("B1").Value

        On Error GoTo 0

    End If

    shtTarget.UsedRange.Clear

    Set rTarget = shtTarget.Range("A1")

    rSource.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=rCriteria, _

                CopyToRange:=rTarget, Unique:=False

    shtTarget.Activate

End Sub