엑셀 빈셀 행 삭제& 마지막 데이타 있는 행 선택

[늘푸른초원]

Sub 행삭제()
   Dim q As Long, w As Long
   w = Cells(Rows.Count, "B").End(3).Row 'B열 마지막행번호
   For q = w To 2 Step -1 '마지막행부터 2행까지 반복
      If Cells(q, "B") = 0 Then Rows(q).Delete 'B열이 0 이면 행삭제
   Next q
End Sub

------------------------------------------------------------

빈셀 행 지우기

Dim q As Long, w As Long
   w = Cells(Rows.Count, "M").End(3).Row '1005
   For q = w To 6 Step -1 '마지막행부터 2행까지 반복
      If Cells(q, "M") = 0 Then Rows(q).Delete 'M열이 0 이면 행삭제
   Next q

----------------------------------------------------------

특정셀에서 마지막 데이타 행까지 선택

Dim q As Long, w As Long
   w = Cells(Rows.Count, "H").End(3).Row 'H열 마지막 행번호 추출 값= w
   Range(Cells(10, "D"), Cells(w, "X")).Select 'D열 10번 행부터 X열 마지막 행까지 선택