VBA 열 여러개 추가 (insert)
2020. 1. 8. 13:20ㆍVBA/Range 활용
728x90
반응형
코드 실행 전
코드 : 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
728x90
반응형