2枚のシートを比較し、行の特定の列をコピーする場合は、VBAを使用してください。

Question

私がしようとしているのは、2つの異なるシートを見て、国民保険番号を比較することです。

シート1は1つのシステムからのデータのセットであり、シート2は別のシステムからの別のデータのセットです。私がしたいのは、最初に、各シートのcolumn1のエントリが同じで、これが同じ人物になると、その人に固有のidを含む両方のシートのカラム1を比較します。次に

私がしたいことは、シート1の列1の右側に17列、シート2の右側に23列（両方が国家保険番号である）に格納されている値を比較することです。

異なる場合にのみ、シート1（番号、名および姓）からの行の最初の3つの列と、両方のシート（国民保険番号）のコピーをコピーしたいとします（Sheet1（0,17）Sheet2 、23）to Sheet3。

これは私がしようとしているのは、論理が全部行をコピーするようにしようとしています。私が望むセルだけをコピーするように変更することはできますが、 .....

Sub compareData() 
    Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet 
    Dim i As Long, j As Long 
    Dim newSheetPos As Integer 

    Set ws1 = ActiveWorkbook.Sheets("Sheet1") 
    Set ws2 = ActiveWorkbook.Sheets("Sheet2") 
    Set ws3 = ActiveWorkbook.Sheets("Sheet3") 

    newSheetPos = ws3.Cells(ws3.Rows.Count, 2).End(xlUp).Row 

    For i = 1 To ws1.Cells(ws1.Rows.Count, 2).End(xlUp).Row 
     For j = 1 To ws2.Cells(ws2.Rows.Count, 2).End(xlUp).Row 
      If ws1.Cells(i, 1).Value = ws2.Cells(j, 1).Value Then 
       If ws1.Cells(i, 17).Value <> ws2.Cells(j, 23).Value Then 
        ws1.Cells(j, 1).EntireRow.Copy ws3.Cells(newSheetPos, 1) 
        newSheetPos = newSheetPos + 1 
       Else 
       End If 
      Else 
      End If 
     Next j 
    Next i 
End Sub 

Answer 1

が同様の問題に実行したので、私はTrim(), UCase()と.Value2を使用していることを発見しましたプロパティは、書式設定やテキストの大文字小文字の違いによって生じる多くの不一致を排除します。 Trim（）と.Value2を使用すると、コードはこのようになります。

If Trim(ws1.Cells(i, 1).Value2) = Trim(ws2.Cells(j, 1).Value2) Then 
    If Trim(ws1.Cells(i, 17).Value2) <> Trim(ws2.Cells(j, 23).Value2) Then 
     ws1.Cells(j, 1).EntireRow.Copy ws3.Cells(newSheetPos, 1) 
     newSheetPos = newSheetPos + 1 
    Else 
    End If 
End If 

セルに格納された値が.Text、.Value又は.Value2で参照することができます。 Value2は、書式設定なしで基本値を提供します。 TEXT vs VALUE vs VALUE2は優れた説明を提供する記事へのリンクです。

Answer 2

こんにちは、私は今、これをソートしている、私はオフセットとしては

Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet 
    Dim i As Long, j As Long 
    Dim newSheetPos As Integer 

    Set ws1 = ActiveWorkbook.Sheets("Sheet1") 
    Set ws2 = ActiveWorkbook.Sheets("Sheet2") 
    Set ws3 = ActiveWorkbook.Sheets("NINO Differences") 

    newSheetPos = ws3.Cells(ws3.Rows.Count, 2).End(xlUp).Row 

    For i = 1 To ws1.Cells(ws1.Rows.Count, 2).End(xlUp).Row 
     For j = 1 To ws2.Cells(ws2.Rows.Count, 2).End(xlUp).Row 

      If Trim(ws1.Cells(i, 1).Value2) = Trim(ws2.Cells(j, 1).Value2) Then 

       If Trim(ws1.Cells(i, 17).Value2) <> Trim(ws2.Cells(j, 24).Value2) Then 
        ws1.Cells(j, 1).EntireRow.Copy ws3.Cells(newSheetPos, 1) 
        newSheetPos = newSheetPos + 1 
       Else 
       End If 
      Else 
      End If 

     Next j 
    Next i