이 기사에서는 빈 셀이 포함 된 불완전한 레코드를 삭제하는 매크로를 만듭니다.

원시 데이터는 이름, 연령 및 성별을 포함하는 일부 샘플 데이터로 구성됩니다. 또한 일부 빈 셀이 포함되어 있습니다.

ArrowRawData

빈 셀이 포함 된 레코드를 제거하려고합니다.

ArrowOutput

논리 설명

불완전한 레코드를 삭제하기 위해 “BlankRowDeletion”매크로를 만들었습니다.

빈 셀을 검색하여 선택한 다음 빈 셀이 포함 된 전체 행을 삭제합니다.

코드 설명

Rng = Range ( “A9 : C”& LastRow) 설정

위의 코드는 주어진 데이터에 대한 범위 개체를 만드는 데 사용됩니다.

Rng.SpecialCells (xlCellTypeBlanks) .Select 위 코드는 지정된 범위 내에서 빈 셀을 선택하는 데 사용됩니다.

Selection.EntireRow.Delete 위 코드는 선택한 셀의 전체 행을 삭제하는 데 사용됩니다.

아래 코드를 따르세요

Option Explicit

Sub BlankRowDeletion()

'Declaring variables

Dim LastRow As Long

Dim Rng As Range

'Getting row number of last cell

LastRow = Range("A1").SpecialCells(xlCellTypeLastCell).Row

'Selecting all data

Set Rng = Range("A9:C" & LastRow)

'Selecting Blank cells

Rng.SpecialCells(xlCellTypeBlanks).Select

'Deleting complete row

Selection.EntireRow.Delete

Range("A9").Select

End Sub

이 블로그가 마음에 들면 Facebook 및 Facebook에서 친구들과 공유하십시오.

여러분의 의견을 듣고 싶습니다. 작업을 개선하고 더 나은 서비스를 제공 할 수있는 방법을 알려주십시오. [email protected]로 문의 해주세요