[vba] vba를 활용한 서로 다른 열의 텍스트 Join(합치기)

아래와 같이 A열과 D열의 텍스트를 Join 즉 합치고자 합니다.

 

Sub program1472_com()

    Dim V As Variant, i As Integer

    Columns(5).ClearContents

    i = ActiveSheet.UsedRange.Rows.Count

    ReDim V(1 To i)

    For i = 1 To i

        V(i) = Join(Array(Cells(i, "A"), Cells(i, "D")), "")

    Next

    [E1].Resize(UBound(V)) = Application.Transpose(V)

End Sub

 

 

 

엑셀 매크로&VBA 바이블:실무에 최적화된 엑셀 사용서, 한빛미디어 40,500원 (포스팅일기준)

엑셀 2016 매크로&VBA 무작정 따라하기:기본+회사실무, 길벗 19,800원 (포스팅일기준)

엑셀 2016 매크로 & VBA 바이블:회사에서 필요한 코드는 모두 있다!, 한빛미디어 40,500원 (포스팅일기준)