[땡큐엑셀vba & 엑셀매크로] 옆셀에 a,b,c 붙여 추가하기

 

적용전

 

적용후

 

'
'source by 땡큐엑셀vba & 엑셀매크로
'
'3개의 셀삽입하고 _a, _b, _c 붙이기
Sub 열3개삽입()

    
    '선택된셀 오른쪽으로(xlToRight) 3개의 셀삽입(Insert)
    Selection.Offset(0, 1).Resize(1, 3).EntireColumn.Insert Shift:=xlToRight
    
    값 = Selection
    
    '첫번째
    Selection.Offset(0, 1) = 값 & "_a"
    '두번째
    Selection.Offset(0, 2) = 값 & "_b"
    '세번제
    Selection.Offset(0, 3) = 값 & "_c"


    MsgBox "완료되었습니다", vbInformation, "땡큐엑셀vba & 엑셀매크로"

End Sub

 

옆셀에 a_b_c붙이기-땡큐엑셀vba.xlsm

0.08MB