VBA 빈 행 없애기

 

프로그램 설명

 

 

BigshiningYU/VBA_auto_Labelform: Using EXCEL VBA, you can merge the file and edit data for making formtec label (github.com)

 

Sub blankremoving()



    For i = 2 To (Worksheets.Count)
    
        Worksheets(i).Activate  'cell 선택 전 해당시트 활성화
        Range("B3:B150").Select  '활성한 시트의 셀에서 select 메서드 작동 가능
    '참고: B3에서 B150까지의 행 중에서 빈행을 찾아 빈행을 제거할 겁니다!
    
        '선택 셀 빈 행 제거
        Selection.SpecialCells(xlCellTypeBlanks).Select
        Selection.EntireRow.Delete
        
    Next i
    
    
    Worksheets(1).Activate
    
End Sub