Vba에서 행 높이를 변경하는 방법(예제 포함)

VBA를 사용하여 Excel에서 행 높이를 변경하려면 다음 방법을 사용할 수 있습니다.

방법 1: 행 높이 변경

 SubChangeRowHeight ()
Rows(3).RowHeight = 40
End Sub

이 특정 매크로는 세 번째 행의 높이를 40 으로 변경합니다.

참고 : Excel의 기본 행 높이는 14.4 입니다.

방법 2: 여러 행의 높이 변경

 SubChangeRowHeight ()
Rows(" 1:5 ").RowHeight = 40
End Sub

이 특정 매크로는 각 행의 높이를 1에서 5, 40 으로 변경합니다.

방법 3: 여러 행의 높이를 자동으로 조정

 SubChangeRowHeight ()
Rows(" 1:8 ").AutoFit
End Sub

이 특정 매크로는 각 줄의 높이를 1에서 8까지 자동으로 조정하여 각 줄에서 가장 높은 텍스트를 표시하는 데 필요한 만큼 높이도록 합니다.

다음 예에서는 Excel에서 다음 데이터 세트를 사용하여 실제로 이러한 각 방법을 사용하는 방법을 보여줍니다.

관련 항목: VBA에서 열 너비를 변경하는 방법

예시 1: 행 높이 변경

다음 매크로를 생성하여 세 번째 행의 높이를 40으로 변경할 수 있습니다.

 SubChangeRowHeight ()
Rows(3).RowHeight = 40
End Sub

이 매크로를 실행하면 다음과 같은 출력이 나타납니다.

세 번째 행의 높이만 40으로 증가하고 다른 모든 행의 높이는 동일하게 유지됩니다.

예 2: 여러 줄의 높이 변경

다음 매크로를 생성하여 각 행의 높이를 1에서 5, 40으로 변경할 수 있습니다.

 SubChangeRowHeight ()
Rows(" 1:5 ").RowHeight = 40 
End Sub

이 매크로를 실행하면 다음과 같은 출력이 나타납니다.

처음 5개 행 각각의 높이는 40으로 변경되었지만 다른 모든 행의 높이는 동일하게 유지되었습니다.

예 3: 여러 행의 높이 자동 조정

다음 매크로를 생성하여 처음 8개 줄 각각의 높이를 자동으로 조정하여 각 줄에서 가장 큰 텍스트를 표시하는 데 필요한 만큼 높이도록 할 수 있습니다.

 SubChangeRowHeight ()
Rows(" 1:8 ").AutoFit
End Sub

이 매크로를 실행하면 다음과 같은 출력이 나타납니다.

각 줄의 높이는 각 줄에서 가장 긴 텍스트를 표시하는 데 필요한 만큼 높이도록 자동으로 조정되었습니다.

추가 리소스

다음 자습서에서는 VBA에서 다른 일반적인 작업을 수행하는 방법을 설명합니다.

VBA:마지막으로 사용한 줄을 찾는 방법
VBA: 서식을 적용하여 줄을 삽입하는 방법
VBA:범위 내 행 수를 계산하는 방법