[땡큐엑셀vba & 엑셀매크로] 셀사이 사이에 빈칸넣기

적용전

 

적용후

 

' http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=280817966
'
'가로로 한줄로 나열되어 있는 셀들이 엄청엄청 많이 있는데요 근데 이 셀들이 다 붙어 있어요!
'셀 4개씩 한묶음으로 하고 그 묶음 사이에 빈칸이 4칸이 오도록 하고 싶은데 어떻게 하면 좋을까요??
'일일이 하는 방법보단 자동으로 하는 방법이 있다면 알려주세요 셀이 너무 많아요 ㅠㅠ

'
' 빈칸을 몇개로 할지 A1셀에 값을 넣으시고(예:4)
' 한행에서 범위를 설정한후 실행하세요
'
' source by 땡큐엑셀vba & 엑셀매크로
'
Sub 빈칸삽입()
    Dim t As Range

    '빈칸수
    빈칸 = Range("A1")
    
    '선택한 범위
    Set Rng = Selection
    '선택한 범위의 갯수
    갯수 = Selection.Count
    
    몫 = Int(갯수 / 빈칸)
    
    '끝에서 부터 빈칸 삽입
    For i = 몫 To 1 Step -1
        Set t = Rng.Cells(1, i * 빈칸).Offset(0, 1).Resize(1, 빈칸)
        t.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Next i
    
    
    MsgBox "완료 되었습니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    
End Sub

 

셀과셀사이 빈칸삽입-Resize_Insert-응용예제-땡큐엑셀vba.xlsm

0.05MB