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

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

숙제중 vba를 실행하는 것 까지는 했는데, 마케터 시트에 아무것도 전시가 안됩니다.

보고 계신 화면 전체를 캡처해 주시면, 튜터님들

이 빠르게 상황을 이해할 수 있어요.

Sub FilterAndCopyData()

  Dim wbSource As Workbook

  Dim wsSource As Worksheet

  Dim wsMarketer As Worksheet

  Dim lastRow As Long, i As Long

  ' source.xlsx 파일 열기

  Set wbSource = Workbooks.Open("/Users/yangsimac/Downloads/source.xlsx") ' "파일경로"는 실제 파일이 위치한 경로로 수정해야 합니다.

  Set wsSource = wbSource.Worksheets("sheet") ' 소스 시트의 이름을 정확히 지정해야 합니다.

  ' 마케터 시트 생성 또는 기존 시트 선택

  On Error Resume Next

  Set wsMarketer = wbSource.Worksheets("마케터")

  On Error GoTo 0

  If wsMarketer Is Nothing Then

    Set wsMarketer = wbSource.Worksheets.Add

    wsMarketer.Name = "마케터"

  End If

  ' 마케팅 데이터 찾기 및 복사

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

  newRow = 1 ' 새로운 시트의 시작 행

  For i = 1 To lastRow

    If wsSource.Cells(i, "B").Value = "마케팅" Then

      wsSource.Rows(i).Copy Destination:=wsMarketer.Cells(newRow, 1)

      newRow = newRow + 1

    End If

  Next i

  ' 변경 내용을 저장하고 파일을 닫음

  wbSource.Close SaveChanges:=True

End Sub