컴알못/VBA
[VBA] 행 높이/열 너비 자동 조절 (.AutoFit)
난프로
2023. 8. 13. 14:32
#VBA #행_높이 #열_너비 #자동_조절 #AutoFit
1. VBA 코드
|
1
2
3
4
5
6
7
8
|
Sub 마지막_행_열_찾기()
Dim nr As Integer, nc As Integer
ActiveSheet.UsedRange.EntireColumn.AutoFit
ActiveSheet.UsedRange.EntireRow.AutoFit
End Sub
|
cs |
2. 코드 해석
> ActiveSheet.UsedRange.EntireColumn.AutoFit
' 현재 활성화된 Worksheet에 입력된 데어터 범위 전체 열 너비를 자동으로 맞춰라
1. ActiveSheet : 현재 엑셀 화면에 활성화된 Worksheet
2. UsedRange.EntireColumn : 데이터가 입력된 셀의 범위 중 전체 열
- Columns("A:C").EntireColumn : A,B,C 열
- Rows("1:3").EntireRow : 1,2,3 행
- Cells.EntireColumn : WorkSheet의 전체 열
- Cells.EntireRow : WorkSheet의 전체 행
3. Autofit : 셀 크기 자동 맞추기
- RowHeight = 10 : 행 높이를 10으로 맞춤
- ColumnWidth = 10 : 열 너비를 10으로 맞춤