여러 열에 걸쳐있는 셀을 찾을 때 증가하는 숫자로 셀의 단일 열을 채우는 방법은 무엇입니까? (스크린 샷)

독점 시스템에서 덤프 된 일부 데이터를 사용할 수있는 것으로 구성하려고합니다. 열 A에 '그룹 기준'번호를 넣고 싶습니다.

다른 중복을 분리하는이 긴 행에 걸쳐 덤프합니다. 스패닝 행에 도달 할 때마다 카운터를 늘리고 스패닝 행을 삭제하고 싶습니다.

이전 데이터는 다음과 같습니다 (A3, A4, A6, A7, A8, A10, A11을 수동으로 입력했습니다).

이후 데이터를 다음과 같이 표시하고 싶습니다.

이것을 달성하는 방법에 대한 아이디어가 있습니까?

최종 솔루션은 아래의 의견으로 가능해졌습니다.

Public Sub CleanMeImFilthy()

    Dim intCounter As Integer
    Dim i As Integer

    i = 1

    For intCounter = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
       If Trim(LCase(Left(Cells(intCounter, 1).Value, 14))) = "duplicate key:" Then
         Rows(intCounter).Delete
         i = i + 1
       Else
         Rows.Cells(intCounter, 1) = i
       End If
    Next

End Sub

다음과 같은 VBA를 시도하십시오.

Public Sub CleanMeImFilthy

  Dim intCounter as Integer

  For intCounter = ActiveSheet.UsedRange.Rows.Count to 1 Step -1
    If Trim(Lcase(Left(Cells(intCounter,1).Value,14))) = "duplicate key:" Then
      Rows(intCounter).Delete
    End If
  Next

End Sub 

모든 코드는 다음과 같습니다.

1. 열 A의 맨 아래에서 시작합니다. 여기서 'bottom'은 마지막으로 사용 된 행입니다.
2. 공백으로 제거 된 현재 셀에서 텍스트의 처음 14 자 소문자 버전이 '중복 키 :'와 같은지 확인합니다.
3. 제거해야 할 모든 행에이 행이 포함되어 있다고 가정하면 행을 삭제합니다.

나는 맨 아래에서 시작하여 행을 삭제하지 않아 더 깨끗해졌습니다. 즉, 아래 행이 당신입니다.

원래 Stack Overflow에 게시 했으므로 Excel에 추가 할 수 있다고 확신합니다. 그렇지 않은 경우 :

1. 여기에서 코드를 복사하십시오
2. VB 편집기로 이동하려면 Alt + F11을 누릅니다.
3. 삽입 | 메뉴 모음의 모듈
4. 편집 | 붙여 넣기 (CTRL + V)
5. VB 편집기를 닫습니다
6. 더티 데이터가 포함 된 시트에서 Alt + F8을 눌러 사용 가능한 매크로 목록을 얻습니다.
7. 'CleanMeImFilthy'를 선택하고 실행을 선택하십시오.