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

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

vba코드에 코드시니펫 코드를 코렙에 입력하면 다 오류로 떠요

File "<ipython-input-10-95056789f108>", line 10

'시트 생성

^

SyntaxError: unterminated string literal (detected at line 10)

이렇게 뜹니다.

도서관이라 화면캡쳐가 안되네요

작성한 코드 및 에러 메세지

Sub TPA_ExtractData()

Dim ws As Worksheet, wsNew As Worksheet

Dim lastRow As Long, newRow As Long

Dim nameCol As Range, emailCol As Range, purchaseTotalCol As Range

'시트 생성

Set ws = ThisWorkbook.Sheets("Sheet")

Set wsNew = ThisWorkbook.Sheets.Add(After:=ws)

wsNew.Name = "tpa_over_500000"

'데이터 추출

Set nameCol = ws.Range("A2:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)

Set emailCol = ws.Range("C2:C" & ws.Cells(ws.Rows.Count, "C").End(xlUp).Row)

Set purchaseTotalCol = ws.Range("F2:F" & ws.Cells(ws.Rows.Count, "F").End(xlUp).Row)

'물건 구매 총 누적 가격이 500000 이상인 고객 추출

newRow = 2

wsNew.Range("A1").Value = "name"

wsNew.Range("B1").Value = "e-mail"

For i = 1 To nameCol.Rows.Count

If purchaseTotalCol.Cells(i, 1) >= 500000 Then

wsNew.Range("A" & newRow).Value = nameCol.Cells(i, 1)

wsNew.Range("B" & newRow).Value = emailCol.Cells(i, 1)

newRow = newRow + 1

End If

Next i

End Sub

 File "<ipython-input-12-2aa431a2bca5>", line 5
    '시트 생성
    ^
SyntaxError: unterminated string literal (detected at line 5)

오류 발생 시, 작성한 코드 전체와 에러 메시지를 첨부해 주세요.

Tip 1) </> 아이콘을 눌러 코드박스를 만들어 보세요.

Tip 2) Ctrl+A(맥의 경우 Command+A) 단축키로 코드를 한 번에 선택할 수 있어요!