Re:엑셀 매크로 질문드려요~ 셀값과 시트명 관련입니다. (파일유)

[곽완근]

안녕하세요?

다음과 같이 한번 해보셔요.

S변수가 Num변수에 1씩 증가하게 되는데

최초 Worksheet를 Add 할경우 활성워크북은 빈시트인데

Cells(num, 1) -> 활성워크북이 비었으니 S 가 빈문자열이 되는 것입니다.

아울러 시트명을 중복이 될수 없이니 맨마지막에서 오류가 나겠지요.?

오류가 날경우는 On error resume next 문으로 대응합니다. (오류가나면 무시)

그리고 오류가 났을 경우는 삽입했던 시트를 삭제 하고 이때 경고창은 무시해라 (Application.displayalert = false)

그리고 삭제한후 다시 경고창 재개 Application.displayalert = true

의외로 손가는데가 많죠?  ^^;

Sub macro()
    Dim num As Integer
    Dim ws  As Worksheet
    Dim s As String
    Set ws = ActiveSheet
    For num = 2 To Range("A1048576").End(xlUp).Row
      With Worksheets
       s = ws.Cells(num, 1)
       .Add after:=Worksheets(.Count)
       On Error Resume Next
       ActiveSheet.Name = s
       If Err.Number <> 0 Then
        Application.DisplayAlerts = False
        ActiveSheet.Delete
        Application.DisplayAlerts = True
       Else
        Err.Clear
       End If
      End With
    Next
End Sub