엑셀 작업을 하다보면 빈행을 숨기고 싶은 경우가 생깁니다.
하나 하나 지정하기 힘든데 이럴 경우에 한번에 숨기기가 가능한 VBA Code 입니다.
마지막 행(Row)은 A열 기준으로 잡은 것입니다.
검사하고픈 조건식이 들어있는 열은 B열 또는 C열인 경우입니다.
둘중에 어떤 것을 써도 결과는 동일합니다.
그리고 숨긴행을 다시 숨기기 취소하면 다 보이니까 잘못될까 걱정할 필요는 없구요.
Sub 빈행숨기기()
Dim i As Long '// 변동되는 변수
Dim endRow As Long '// 마지막 행 변수
endRow = Cells(Rows.Count, "A").End(3).Row '// 값이 들어있는 마지막행을 자동인식
For i = endRow To 2 Step -1 '// 마지막 행부터 거꾸로
If (Cells(i, "B") = "" And Cells(i, "C") = "") Or Cells(i, "B") = 0 Or Cells(i, "C") = 0 Then
Rows(i).EntireRow.Hidden = True '// 빈행 숨기기
End If
Next i
End Sub
Sub 빈행숨기기1()
Dim i As Long '// 변동되는 변수
Dim endRow As Long '// 마지막 행 변수
endRow = Cells(Rows.Count, "A").End(3).Row '// 값이 들어있는 마지막행을 자동인식
For i = 2 To endRow '// 검사할 행이 2행인 경우 2행부터 마지막행까지
If (Cells(i, "B") = "" And Cells(i, "C") = "") Or Cells(i, "B") = 0 Or Cells(i, "C") = 0 Then
Rows(i).EntireRow.Hidden = True '// 빈행 숨기기
End If
Next i
End Sub
'업무 능력 향상 > 엑셀 VBA 활용' 카테고리의 다른 글
| 조건을 만족하지 않는 행 삭제 (0) | 2014.01.30 |
|---|---|
| [VBA] 찾는 글자색에 색상을 주는 FIND VBA (7) | 2014.01.29 |
| 업체별 공급가액 합계 및 정렬 1 (다른 시트 데이터 가져오기) (0) | 2014.01.26 |
| 색상 개수와 색깔 표시하기 (동일 시트) (0) | 2014.01.26 |
| [VBA] 이름별로 구매금액 합계 구하기 (동일 시트) (9) | 2014.01.25 |
Link2Me