Excel에서 다른 모든 행 / 셀을 병합하는 방법은 무엇입니까?

데이터 목록이 있고 아래 그림과 같이 다른 모든 행 또는 셀을 결합하려는 경우 수행하는 방법을 알고 있습니까? Excel에서 수식 또는 VBA를 사용하여 다른 모든 행이나 셀을 병합 할 수 있습니다.

Excel의 수식을 사용하여 다른 모든 행 / 셀 병합

놀라운! Chrome, Edge, Firefox 및 Safari와 같은 Excel에서 효율적인 탭을 사용하세요!
시간의 50 %를 절약하고 매일 수천 번의 마우스 클릭을 줄이십시오!

빈 셀을 선택하고 입력 =OFFSET(A$1,(ROW()-1)*2,0)&" "&OFFSET(A$1,((ROW()-1)*2)+1,0) (A $ 1은 목록의 첫 번째 데이터를 나타내며 필요에 따라 변경할 수 있습니다.) Enter 키를 누릅니다. 그런 다음 채우기 핸들을 끌어이 수식을 적용하는 데 필요한 범위를 채 웁니다. 스크린 샷보기 :

다른 모든 행 / 셀을 VBA와 병합

VBA를 사용하는 데 익숙한 경우 아래 VBA를 실행하여 다른 모든 행을 병합 할 수도 있습니다.

1. 보류 ALT 버튼을 눌러 F11 키보드에서 응용 프로그램용 Microsoft Visual Basic 창.

2. 클릭 끼워 넣다 > 모듈을 클릭하고 VBA를 모듈에 복사합니다.

VBA : 다른 모든 행 / 셀 병합

Sub CombineCells()
'Updateby20140314
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
For i = 1 To InputRng.Rows.Count Step 2
    For j = 1 To InputRng.Columns.Count
        OutRng.Value = InputRng.Cells(i, j).Value & InputRng.Cells(i + 1, j).Value
        Set OutRng = OutRng.Offset(0, 1)
    Next
    Set OutRng = OutRng.Offset(1, (InputRng.Columns.Count * -1))
Next
End Sub

3. 클릭 달리기 VBA 코드를 실행하고 Kutoolsfor엑셀 다른 모든 행을 병합 할 셀 범위를 선택할 수있는 대화 상자가 나타납니다. 스크린 샷보기 :

4. 클릭 OK, 병합 된 결과를 출력 할 단일 셀을 선택할 수있는 다른 대화 상자가 표시됩니다. 스크린 샷보기 :

5. 클릭 OK, 결과를 볼 수 있습니다.