Excel에서 병합된 셀의 행 높이를 자동으로 맞추는 방법은 무엇입니까?

Excel에서 데이터를 명확하게 표현하기 위해서는 행 높이를 빠르고 정확하게 조정하는 것이 중요합니다. 일반적으로 행 높이를 자동으로 조정하는 '자동 맞춤 행 높이' 기능을 사용하여 셀 내용에 맞게 행 높이를 자동으로 조정할 수 있습니다. 그러나 병합된 셀을 다룰 때는 '자동 맞춤 행 높이'가 예상대로 작동하지 않는 것을 알 수 있습니다. 즉, Excel의 자동 맞춤 기능은 병합된 셀을 완전히 무시하므로 이러한 경우 셀 내용에 맞게 행 높이를 자동으로 조정할 수 없습니다. 결과적으로 모든 내용이 보이도록 각 병합된 셀의 행 높이를 수동으로 조정해야 하는데, 이는 특히 많은 병합된 셀이 있을 경우 번거롭고 오류가 발생하기 쉽습니다.

이 문서에서는 병합된 셀의 행 높이를 자동으로 맞출 수 있는 몇 가지 실용적인 방법을 소개합니다. 이를 통해 시간을 절약하고 깔끔하고 읽기 쉬운 워크시트를 유지할 수 있습니다.

VBA 코드를 사용하여 병합된 셀의 행 높이 자동 맞춤

텍스트 줄 바꿈과 수동 조정 사용

VBA 코드를 사용하여 병합된 셀의 행 높이 자동 맞춤

아래 스크린샷에 표시된 것처럼 워크시트에 다양한 양의 내용을 가진 여러 개의 병합된 셀이 있다고 가정해 보겠습니다. 모든 데이터를 완전히 표시하면서 매번 행을 수동으로 조정하지 않으려면 VBA 코드 솔루션을 사용하여 각 병합된 셀의 내용에 맞게 한 번에 행 높이를 자동으로 조정할 수 있습니다. 이 방법은 특히 워크시트 전체에 걸쳐 많은 병합 범위가 있거나 병합된 셀 내용이 자주 업데이트되는 경우, 조정 프로세스를 간소화하는 데 매우 유용합니다.

VBA를 실행하기 전에, 작업이 저장되지 않은 상태에서 손실이 발생하지 않도록 통합 문서를 매크로 사용 가능한 파일로 저장하세요. VBA는 Excel에서 제공하는 안전한 방법이지만, 매크로가 활성화되어 있고 시스템에서 매크로 실행을 허용하도록 보안 설정이 구성되었는지 확인하세요.

1. Microsoft Visual Basic for Applications 창을 열기 위해 ALT + F11 키를 누르고 있습니다.

2. 삽입 > 모듈을 클릭한 다음, 아래 코드를 모듈 창에 복사하여 붙여넣습니다.

Option Explicit
Public Sub AutoFitAll()
  Call AutoFitMergedCells(Range("a1:b2"))
   Call AutoFitMergedCells(Range("c4:d6"))
    Call AutoFitMergedCells(Range("e1:e3"))
End Sub
Public Sub AutoFitMergedCells(oRange As Range)
  Dim tHeight As Integer
  Dim iPtr As Integer
  Dim oldWidth As Single
  Dim oldZZWidth As Single
  Dim newWidth As Single
  Dim newHeight As Single
  With Sheets("Sheet4")
    oldWidth = 0
    For iPtr = 1 To oRange.Columns.Count
      oldWidth = oldWidth + .Cells(1, oRange.Column + iPtr - 1).ColumnWidth
    Next iPtr
    oldWidth = .Cells(1, oRange.Column).ColumnWidth + .Cells(1, oRange.Column + 1).ColumnWidth
    oRange.MergeCells = False
    newWidth = Len(.Cells(oRange.Row, oRange.Column).Value)
    oldZZWidth = .Range("ZZ1").ColumnWidth
    .Range("ZZ1") = Left(.Cells(oRange.Row, oRange.Column).Value, newWidth)
    .Range("ZZ1").WrapText = True
    .Columns("ZZ").ColumnWidth = oldWidth
    .Rows("1").EntireRow.AutoFit
    newHeight = .Rows("1").RowHeight / oRange.Rows.Count
    .Rows(CStr(oRange.Row) & ":" & CStr(oRange.Row + oRange.Rows.Count - 1)).RowHeight = newHeight
    oRange.MergeCells = True
    oRange.WrapText = True
    .Range("ZZ1").ClearContents
    .Range("ZZ1").ColumnWidth = oldZZWidth
  End With
End Sub

참고:

(1.) 추가 병합 범위를 조정해야 할 경우, 필요한 만큼 Call AutoFitMergedCells(Range("a1:b2")) 줄을 복사하여 원하는 각 병합 범위의 주소를 업데이트하세요.

(2.) 스크립트의 Sheet4를 병합된 셀이 위치한 워크시트 이름으로 변경하세요. 워크시트 이름이 확실하지 않다면, Excel 창 하단의 시트 탭을 확인하세요.

(3.) 매크로를 실행할 때 중요한 데이터 또는 민감한 데이터가 포함된 셀이 선택된 범위에 포함되지 않도록 주의하여 예상치 못한 서식 변경을 방지하세요.

3. 이 코드를 실행하기 위해 F5 키를 누릅니다. 실행 후, 지정된 모든 병합된 셀은 아래와 같이 셀 내용을 완전히 표시하도록 행 높이가 자동으로 조정됩니다.

이 VBA 솔루션은 병합된 셀 크기를 다루는 편리하고 자동화된 방법을 제공합니다. 하지만 이 방법은 개발자 탭에 접근하고 매크로 사용 권한이 필요하다는 점을 기억하세요 — 특히 매크로가 비활성화되거나 제한된 환경에서 협업 중일 때는 유념하시기 바랍니다.

텍스트 줄 바꿈과 수동 조정 사용

많은 경우, VBA나 복잡한 도구에 의존하지 않고도 텍스트 줄 바꿈 기능과 빠른 수동 행 높이 조정을 결합하여 모든 내용이 분명히 보이도록 할 수 있습니다.

1 단계: 텍스트 줄 바꿈 활성화

1. 서식을 적용하려는 병합된 셀을 선택합니다.
2. 홈 탭으로 이동하여 정렬 그룹의 줄 바꿈(Wrap Text)을 클릭합니다.

이렇게 하면 셀 내용이 병합된 영역 내에서 자동으로 줄 바꿈됩니다.

2 단계: 표시를 확인하고 필요하면 수동으로 행 높이 조정

텍스트가 길지 않다면 이제 병합된 셀에 잘 맞을 것입니다.

내용이 길어 여전히 모두 표시되지 않을 경우, 병합된 셀 아래의 행 경계를 드래그하여 모든 내용이 표시될 때까지 행 높이를 늘립니다.

관련 문서:

Excel에서 열 너비를 자동으로 맞추는 방법은 무엇입니까?