EXCEL 의 VBA 스크립팅 프로그램을 사용하여 빈 행과 빈 열을 제거하는 방법

이 VBA 코드는 Excel 통합 문서의 모든 워크시트에서 빈 행과 열을 삭제하는 기능을 합니다. 이 코드에는 다음과 같은 세 가지 하위 프로세스가 포함되어 있습니다.

Sub 는 빈 행과 빈 열 () 을 모두 삭제합니다

하위 프로세스는 먼저 워크북의 각 워크시트를 순회합니다. 각 워크시트에 대해 다음을 수행합니다.

빈 행과 열을 삭제할 때 빈 셀이 남지 않도록 셀 병합을 취소합니다.

DeleteEmptyRows 하위 프로세스를 호출하여 빈 행을 모두 제거합니다.

DeleteEmptyColumns 하위 프로세스를 호출하여 빈 열을 모두 삭제합니다.

행 높이 및 열 너비를 데이터에 맞게 자동으로 조정합니다.

Sub DeleteEmptyRows ()

이 하위 프로세스는 워크시트에서 빈 행을 삭제하는 데 사용됩니다. 먼저 마지막 행의 행 번호를 결정한 다음 마지막 행부터 위로 이동하여 해당 행이 비어 있는지 확인합니다. 이 비헤이비어가 비어 있으면 해당 행을 삭제합니다. CountA 함수를 사용하여 행에 비어 있지 않은 셀이 있는지 확인합니다.

Sub DeleteEmptyColumns ()

이 하위 프로세스는 워크시트에서 빈 열을 제거하는 데 사용됩니다. 먼저 마지막 열의 열 번호를 결정한 다음 마지막 열에서 왼쪽으로 이동하며 열이 비어 있는지 열별로 확인합니다. 이 열이 비어 있으면 해당 열을 삭제합니다. 또한 CountA 함수를 사용하여 열에 비어 있지 않은 셀이 있는지 여부를 확인합니다.

코드가 각 워크시트에서 작동하기 때문에 통합 문서에 많은 수의 워크시트 또는 많은 양의 데이터가 있는 경우 코드 실행 효율성이 영향을 받을 수 있습니다.