중복 된 시간 프레임을 식별
_ 동일한 사람에 대해 여러 항목이있는 중복 행을 찾고 중복 항목을 찾으려면이 기사를 놓치지 마십시오. 중복 행을 식별하는 데 도움이되는 매크로 코드를 제공합니다. 이 기사에서는 특정 열을 기준으로 중복 된 행을 찾는 방법을 배웁니다 ._
질문 : 사람들을위한 여러 타임 스탬프 항목이있는 스프레드 시트가 있습니다. 이 사람들은 동시에 여러 장소에서 출퇴근 할 수 있습니다. 데이터를 검색하고 특정 사람에 대해 겹치는 시간과 함께 빨간색 선으로 강조 표시되는 공식 또는 매크로 (이 경우 가장 좋은 목표를 달성 할 수 없음)를 작성하려고합니다. 이것이 가능하고 누군가가 제발 도와 줄 수 있습니까? 감사합니다.
다음은 이전 시트의 스냅 샷입니다.
다음은 이후 시트의 스냅 샷입니다.
코드를 얻으려면; Visual Basic 편집기 화면을 시작하려면 아래 단계를 수행해야합니다. 개발자 탭을 클릭합니다. 코드 그룹에서 Visual Basic을 선택합니다.
-
표준 모듈에 아래 코드 복사
Sub FindOverlapTime()
Dim rng As Range, cell As Range, trng As Range, tcell As Range
Dim lr As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
Range("A2:H" & lr).Interior.ColorIndex = xlNone
Set rng = Range("C2:C" & lr)
For Each cell In rng
If Application.CountIf(Range("C2", cell), cell.Value) > 1 Then
Set trng = Range("F2:F" & cell.Row - 1)
For Each tcell In trng
If tcell.Offset(0, -3) = cell Then
If (cell.Offset(0, 3) >= tcell And cell.Offset(0, 3) <= tcell.Offset(0, 1)) _ Or (cell.Offset(0, 4) >= tcell And cell.Offset(0, 4) <= tcell.Offset(0, 1)) Then
Range("A" & cell.Row & ":H" & cell.Row).Interior.ColorIndex = 3
End If
End If
Next tcell
End If
Next cell
End Sub
image : https : //www.office-skill.site/images/wp-content-uploads-2015-07-image-43.png [image 4, width = 624, height = 293] * 매크로를 실행하면서 우리는 결과를 얻을 것입니다. 아래 스냅 샷 참조 :
코드 설명 :
rng, cell, trng, tcell을 Lr 범위로 선언합니다. * lr = Cells (Rows.Count, “A”). End (xlUp) .Row는 현재 시트의 마지막 행을 확인합니다.
-
Range ( “A2 : H”& lr) .Interior.ColorIndex = xlNone; 그러면 셀 A2에서 H 열까지 마지막 행까지 범위가 선택되고 (이 예에서는 A2 : H5가 선택됨) 색상이 채워지지 않도록합니다.
rng = Range ( “C2 : C”& lr); 열 C (프로필 ID)는 rng의 각 셀에 대해 rng에 저장됩니다. 이제 rng에서 For each 루프를 실행합니다. 즉, C 열 If Application.CountIf (Range ( “C2”, cell), cell.Value)> 1 Then; 이것은 셀 값이 1보다 큰 횟수를 확인합니다. 1보다 큰 경우 Set trng = Range ( “F2 : F”& cell.Row-1); 이제 F 열을 설정합니다.
IN time in trng * 다음으로 trng에서 For Each Loop를 실행하고 중복 행이 있는지 확인하고 발견되면 빨간색으로 강조 표시합니다.
결론 : 이런 식으로 매크로 코드를 사용하여 중복 값을 찾고 나중에 제거 할 수 있습니다.
_ 블로그가 마음에 들면 Facebook에서 친구들과 공유하세요. Twitter와 Facebook에서도 팔로우 할 수 있습니다 ._
_ 우리는 여러분의 의견을 듣고 싶습니다. 우리가 작업을 개선, 보완 또는 혁신하고 더 나은 서비스를 제공 할 수있는 방법을 알려주십시오. [email protected]_로 문의 해주세요