#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으로 맞춤
'컴알못 > VBA' 카테고리의 다른 글
| [VBA] 변수 타입과 범위 (0) | 2023.08.22 |
|---|---|
| [VBA] Function과 Subroutine (0) | 2023.08.22 |
| [VBA] R1C1 참조 스타일 (0) | 2023.08.21 |
| [VBA] VBA에서 다른 파일의 모듈 실행하기(Application.Run) - 1 (0) | 2023.08.14 |
| [VBA] 사용자 정의 함수 만들기 / Add-in으로 추가하기 (0) | 2023.08.14 |
| [VBA] Option Explicit 사용 이유 (0) | 2023.08.14 |
| [VBA] 자동 필터 (.AutoFilter) (0) | 2023.08.13 |
| [VBA] 데이터가 입력된 마지막 행/열 찾기(.End) (0) | 2023.08.13 |
