활성 워크 시트 이전 시트에서 복사

Question

이전 워크 시트 (현재 워크 시트 이전 시트)에서 현재 워크 시트로 복사 할 VBA 코드가 있습니까?

Public Sub CpySheet() 
    Dim i As Long 
    Dim name As String 
    name = ActiveSheet.name 
    i = ActiveSheet.Index 

    Application.DisplayAlerts = False 
    Sheets(i).Delete 
    Application.DisplayAlerts = True 

    Worksheets(i - 1).Copy after:=Worksheets(i - 1) 
    Sheets(i).name = name 
End Sub 

:

Answer 1

이 코드를 시도