Excel에서 셀 값에 따라 행 높이를 변경하는 방법은 무엇입니까?

워크시트에서 행 높이를 변경하려면 대부분의 사용자가 선택한 행의 높이를 설정하기 위해 '행 높이' 기능을 사용합니다. 하지만 숫자 목록이 있고, 아래 스크린샷과 같이 셀 값에 따라 행 높이를 설정하려는 경우 Excel에서 이 작업을 어떻게 처리할 수 있을까요?

VBA 코드를 사용하여 셀 값에 따라 행 높이 변경하기

VBA 코드를 사용하여 셀 값에 따라 행 높이 변경하기

여러 행의 높이를 한 번에 셀 값에 따라 직접적으로 변경할 수 있는 방법은 없지만, 다음 VBA 코드를 통해 가능한 한 빨리 이 작업을 완료할 수 있습니다.

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 삽입 > 모듈을 클릭하고 모듈 창에 다음 코드를 붙여넣습니다.

VBA 코드: 셀 값에 따라 행 높이 변경하기:

Sub rowheight()
'Updateby Extendoffice
    Dim hgt As Variant
    Dim WorkRng As Range
    xTxt = ActiveWindow.RangeSelection.Address
    Set WorkRng = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
For Each H In WorkRng
        If H.Value > 15 Then
            hgt = H.Value
            H.EntireRow.Select
            Selection.rowheight = hgt
        End If
    Next H
End Sub

3. 그런 다음 F5 키를 눌러 이 코드를 실행하면, 셀 값을 기준으로 행 높이를 설정할 셀을 선택하라는 메시지 상자가 나타납니다. 스크린샷 참고:

4. 확인 버튼을 클릭하면, 행 높이가 다음과 같이 셀 값에 따라 변경됩니다:

참고: 위의 VBA 코드에서 If H.Value > 15 Then 은 셀 값이 15보다 큰 경우 행 높이가 변경됨을 의미하며, 셀 값이 15보다 작으면 행 높이는 기본값으로 유지됩니다. 필요에 따라 이를 변경할 수 있습니다.