VBA 열 여러개 추가 (insert)

코드 실행 전

코드 : ms.Columns(2).Resize(, 2).Insert Shift:=xlToRight

​

코드 실행 후

Sub test()

Dim m As Workbook: Set m = Workbooks(ThisWorkbook.Name)
Dim ms As Worksheet: Set ms = m.Sheets(ActiveSheet.Name)

ms.Columns(2).Resize(, 2).Insert Shift:=xlToRight
'# ms = 활성화 된 엑셀시트
'# Columns(2) = 두 번째 컬럼(열)
'# .Resize(,2) = 두 번째 컬럼에서 우측으로 두 칸
'# .insert = 우측으로 두 칸을 추가한다.
'# Shift:=xlToRight = 옵션임 우측으로 추가하는 거

End Sub