Paul에는 천개가 넘는 데이터 행이있는 워크 시트가 있습니다. 대부분의 행은 높이가 12이지만 일부는 높이가 100을 초과합니다. 그는 행 높이를 조정하여 행이 40을 넘지 않도록하는 방법이 있는지 궁금합니다. (즉, 키가 40 세 미만인 경우 현재 키가 유지되지만 40 세 이상인 경우 40으로 조정됩니다.)

이 문제를 해결하는 것은 실제로 매우 쉽습니다. 행을 단계별로 살펴보고 현재 행 높이를 확인한 다음 너무 큰 경우 행 높이를 조정하는 방법 만 있으면됩니다. 다음과 같은 매우 간단한 매크로로 수행 할 수 있습니다.

Sub MaxRowHeight()

Dim R As Long

For R = 1 To ActiveSheet.UsedRange.Rows.Count         If Rows(R).Height > 40 Then Rows(R).RowHeight = 40     Next End Sub

매크로는 워크 시트에서 사용 된 행의 범위를 결정한 다음 해당 행을 단계별로 실행합니다. 작동 속성은 확인 된 .Height 속성입니다. 40을 초과하면 40으로 설정됩니다. 이는 행 높이가 40 미만인 모든 항목이 변경되지 않음을 의미합니다.

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶으면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (10381)은 Office 365의 Microsoft Excel 2007, 2010, 2013, 2016, 2019 및 Excel에 적용됩니다.