VBA(엑셀 매크로) 시트 복사, 시트 이름 변경, 불러오기

VBA로 시트의 복사 및 시트 이름을 변경하는 방법에 대해 알아보도록 하겠다.

Sheets(시트번호).Copy after:=Sheets(시트번호)

위 구문에서 Sheets(시트번호).Copy는 시트번호에 해당하는 시트를 복사한다. 그 뒤

after:=Sheets(시트번호)는 시트번호에 해당하는 시트 오른쪽에 복사했던 시트를 붙여넣는다.

before:=Sheets(시트번호)는 시트번호에 해당하는 시트 왼쪽에 복사했던 시트를 붙여넣는다.

Sub CopySheets()
    Sheets(2).Copy after:=Sheets(2)
    Sheets(2).Copy before:=Sheets(2)
End Sub

위 소스의 실행하면

Sheets(2).Copy after:=Sheets(2) 는 2번째 시트를 복사하여 2번째 시트 오른쪽에 복사한 시트를 넣는다.

Sheets(2).Copy after:=Sheets(2) 는 2번째 시트를 복사하여 2번째 시트 왼쪽에 복사한 시트를 넣는다.

Sub ReNameSheets()
    Sheets(2).Name = "Rename"
    MsgBox Sheets(2).Name
End Sub

Sheets(시트번호).Name는 해당 시트 번호의 시트의 이름에 접근하게 해준다.

위 소스를 실행하면

Sheets(2).Name = "Rename" 는 2번째 시트의 이름을 Rename으로 바꾸어준다.

MsgBox Sheets(2).Name 는 2번째 시트의 이름을 메세지 박스에 출력한다. 출력내용은 Rename

소소