이 기사에서는 중복을 확인하고 두 개의 연속 열에서 중복 값을 제거하는 매크로를 만듭니다.

원시 데이터는 에이전트 이름, 대상 모델 이름 및 원하는 모델 이름을 포함하는 대상 세부 정보로 구성됩니다.

ArrowRawData

이 기사에서는 대상 모델 이름과 원하는 모델 이름이 유사한 레코드를 삭제하려고합니다.

ArrowOutput

코드 설명

LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell) .Row 위 코드는 마지막 셀의 행 번호를 가져 오는 데 사용됩니다.

For i = LastRow To 12 Step -1 Next 위의 For 루프는 역 루핑에 사용됩니다. 마지막 행에서 12 ^ th ^ 행까지 루프를 시작합니다.

If Cells (i, 2) = Cells (i, 3) Then 위 코드에서는 2 ^ nd ^ 열의 셀 값을 3 ^ rd ^ 열과 비교했습니다.

Rows (i) .Delete 위 코드는 전체 행을 삭제하는 데 사용됩니다.

아래 코드를 따르세요

Option Explicit

Sub DeleteMatches()

'Declaring variables

Dim LastRow, i As Long

'Getting the row number of last cell

LastRow = ActiveCell.SpecialCells(xlCellTypeLastCell).Row

'Looping from last row to 12th row

For i = LastRow To 12 Step -1

If Cells(i, 2) = Cells(i, 3) Then

Rows(i).Delete

End If

Next

End Sub

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

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