* 겪고 있는 문제 상황을 최대한 자세하게 작성해주세요.

* 문제 해결을 위해 어떤 시도를 해보았는지 구체적으로 함께 알려주세요.

4주차 숙제 빨리 검토 부탁드립니다. 강의 날짜가 촉박해서....

Sub 필터링_및_시트_생성()

  Dim wb As Workbook

  Dim wsOriginal As Worksheet

  Dim wsFiltered As Worksheet

  Dim lastRow As Long

  Dim i As Long, j As Long

  ' 워크북 및 시트 이름을 적절하게 변경하십시오.

  Set wb = Workbooks.Open("C:\Users\user2\Desktop\source.xlsx")

  Set wsOriginal = wb.Sheets("Sheet") ' "Sheet1"을 실제 시트 이름으로 변경

  ' 필터링 된 데이터에 대한 새로운 워크시트 생성

  Set wsFiltered = Sheets.Add(After:=Sheets(Sheets.Count))

  wsFiltered.Name = "마케터"

  ' 헤더를 새 시트로 복사

  wsOriginal.Rows(1).Copy wsFiltered.Rows(1)

  ' 원본 시트에서 데이터가있는 마지막 행 찾기

  lastRow = wsOriginal.Cells(wsOriginal.Rows.Count, "A").End(xlUp).Row

  ' 원본 시트를 반복하고 부품이 '마케팅'인 행을 복사합니다.

  For i = 2 To lastRow ' 데이터가 2행부터 시작한다고 가정

    If wsOriginal.Cells(i, 2).Value = "마케팅" Then

      ' 새 시트에 대한 행 인덱스 증가

      j = j + 1

      ' 전체 행을 새 시트로 복사

      wsOriginal.Rows(i).Copy wsFiltered.Rows(j + 1)

    End If

  Next i

End Sub

면 전체를 캡처해 주시면, 튜터님들이 빠르게 상황을 이해할 수 있어요.

작성한 코드 및 에러 메세지