Prompt :
나는 엑셀2016을 사용중이야
아래 내용에 대해 좋은 솔루션을 제공해 주세요.
1. A1:E1 셀들에 각각 데이터들이 존재해
2. 각 셀들을 병합 하려고 해. 병합하는 셀들 사이에 , 가 있어야 해
A1 | B1 | C1 | D1 | E1 |
기린 | 사슴 | 토끼 | 사자 | 호랑이 |
Sub MergeCellsWithComma()
Dim rng As Range
Dim cell As Range
Dim mergedText As String
' 병합하려는 범위 설정 (A1:E1)
Set rng = Range("A1:E1")
' 병합될 텍스트를 초기화
mergedText = ""
' 각 셀을 순회하면서 값을 쉼표로 연결
For Each cell In rng
If mergedText = "" Then
mergedText = cell.Value
Else
mergedText = mergedText & "," & cell.Value
End If
Next cell
' 병합된 값을 A1에 넣고, 다른 셀은 비웁니다.
rng.ClearContents
Range("A1").Value = mergedText
End Sub
Function MergeCellsWithComma(rng As Range, Optional delimiter As String = ",") As String
Dim cell As Range
Dim mergedText As String
' 병합할 텍스트 초기화
mergedText = ""
' 각 셀을 순회하면서 값을 delimiter로 연결
For Each cell In rng
If mergedText = "" Then
mergedText = cell.Value
Else
mergedText = mergedText & delimiter & cell.Value
End If
Next cell
' 병합된 텍스트를 반환
MergeCellsWithComma = mergedText
End Function
