전체 행을 다른 시트로 복사하는 방법

Question

사람들 열이 다르지만 새 시트가 같은 행에 있지 않을 때 한 시트에서 다른 시트로 행을 복사 할 수있는 간단한 Excel 매크로를 찾고 있습니다 1000
두 일본 2000
세 EEUU 3000

시트 2

ABC
한 스페인 : 그들은 어디로 ...,

시트 1이 연속 추가됩니다 다른했다

ABC
한 이탈리아 1000
두 일본 2000
세 EEUU 4000

Sheet3에 (최종) :

ABC 1000
한 이탈리아
세 EEUU 4000

나는 것 시트 "Sheet1"을 시트 "Sheet2"와 비교하고 모든 컬럼에서 차이점을 발견하면 n, 워크 시트 "Sheet2"의 전체 행을 워크 시트 "Sheet3"에 복사하십시오.

모든 팁이 많이 필요합니다. Sory는 내 영어를 사용하지만 저는 아르헨티나 출신입니다.

덕분에, 이그나시오 G

편집 : 는 사실,이 코드를 사용하고 있습니다 :

Public Sub ReconReport() 
Dim rngCell As Range 

For Each rngCell In Worksheets("Sheet1").UsedRange 
    If Not rngCell = Worksheets("Sheet2").Cells(rngCell.Row, rngCell.Column) Then _ 
     Let Worksheets("Sheet3").Cells(rngCell.Row, rngCell.Column) = rngCell 
    Next 
End Sub 

을하지만 그냥 다른 셀을 복사하고, 내가 필요한 것은 내가 전체 행을 복사 한 것입니다. ..

Answer 1

느린 답변 :

Sub ReconReport() 
    'Set Worksheets to Variables 
    Dim sheetOne, sheetTwo, sheetThree As Worksheet 
    Set sheetOne = Worksheets("Sheet1") 
    Set sheetTwo = Worksheets("Sheet2") 
    Set sheetThree = Worksheets("Sheet3") 

    'Find Used Rows and Columns 
    Dim usedRows, usedCols As Integer 
    usedRows = sheetOne.UsedRange.Rows.Count 
    usedCols = sheetOne.UsedRange.Columns.Count 

    Dim row, col, copyRow, copyCol As Integer 
    copyRow = 1 'Row on sheet three 
    For row = 1 To usedRows 
     For col = 1 To usedCols 
      If Trim(sheetOne.Cells(row, col).Value) <> Trim(sheetTwo.Cells(row, col).Value) Then 

       'Copy All Columns from that row (on Sheet2) to Sheet3 
       For copyCol = 1 To usedCols 
        sheetThree.Cells(copyRow, copyCol).Value = sheetTwo.Cells(row, copyCol).Value 
       Next copyCol 

       'Increment the sheet3 row so next info starts on new line 
       copyRow = copyRow + 1 

       'Exit column search loop so only one row added if two columns have differences in the same row 
       Exit For 

      End If 
     Next col 
    Next row 
End Sub