선택한 셀에 있는 값들을 현재 셀에 문자열로 연결

매크로를 실행하고, 레인지를 선택 해주면 현재 셀에 선택한 레인지 셀 값들을 ','로 전부 연결해서 한 셀에 넣어 줄 때 편리하게 사용할 수 있는 함수 입니다. 사용법은 아래와 같습니다.

1. 알트(Alt) + F11키를 눌러 비주얼 베이직 창을 열고, 현재_통합문서에서 마우스 우측 버튼을 눌러 모듈을 추가해줍니다.

2. 아래 매크로를 복사/붙여넣기 한 후 알트(Alt) + Q를 눌러 워크시트 화면으로 돌아옵니다.

3. 알트(Alt) + F8키를 눌러 conSelectRng() 매크로를 실행시켜 레인지를 선택 해주면 커서가 있는 현재 셀에 선택한 셀의 내용을 모두 연결해서 입력해줍니다.

 

Sub conSelectRng()

Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xStr As String
Dim xRow As Long
Dim xCol As Long

Worksheets("Sheet1").Activate
Set selectedCell = Application.ActiveCell
cCell = ActiveCell.Address
Dim Separator As String
Separator = ","

Set xRg = Application.InputBox("선택해주세요!:", "구간 선택", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next

For Each cCell In xRg

Result = Result & "'" & cCell.Value & "'" & Separator

Next cCell
xStr = Left(Result, Len(Result) - 1)
'MsgBox xStr, vbInformation, "선택값"
selectedCell.Value = Chr(39) & xStr

End Sub

#엑셀, #매크로, #텍스트, #텍스트연결, #문자연결, #문자, #셀값, #셀값연결