VBA를 사용하여 셀을 읽고 다른 열에 쓰기

Question

먼저이 질문을 읽는다면 감사드립니다.

내 문제는 Excel에서 VBA를 사용하여 각 행의 셀을 읽지 못하게하고 이전 처리 된 셀과 동일한 셀의 데이터를 찾으면 처음 발견 된 열의 옆에 씁니다. 세포. 여기

는 일부 이미지가있는 I가 필요하다 :

[1 단계]를 http://i61.tinypic.com/m8ekqg.png[/IMG] [필요한 것은이 완료 될] http://i58.tinypic.com/260vltg.png[/IMG]

당신이 나를 도울 수 있다면 정말 감사합니다. 미리 감사드립니다.

Answer 1

다음 코드를 시도해보십시오. 범위 참조 등을 업데이트해야 할 수도 있습니다.

Sub ProcessData() 
    Dim data As Range, arr() As Variant, i As Long, rw As Long 

    Set data = Range("A2:C9") 
    arr() = data 
    rw = 2 
    data.ClearContents 

    For i = 1 To data.Rows.Count 
     If i = 1 Then 
      Range("A" & rw) = arr(i, 1) 
      Range("B" & rw) = arr(i, 2) 
      Range("C" & rw) = arr(i, 3) 
     ElseIf arr(i, 1) <> arr(i - 1, 1) Then 
      rw = rw + 1 
      Range("A" & rw) = arr(i, 1) 
      Range("B" & rw) = arr(i, 2) 
      Range("C" & rw) = arr(i, 3) 
     Else 
      With Range("A" & rw).End(xlToRight) 
       .Offset(0, 1) = arr(i, 2) 
       .Offset(0, 2) = arr(i, 3) 
      End With 
     End If 
    Next i 
End Sub