生データを登録する

Question

2つのシート - 1つの「登録」と1つの「要約」 - そして、私はマクロボタンに付けることができるVBAスクリプトが必要です。 ）を要約シートの列Dと比較します。

一致がある場合は、要約シートの同じ行の列Lにセルをコピーするだけでなく、行の緑色に色付けすると同時に、登録シートのセルから列Qにペーストする - Q列の値がすでに上に追加されている場合（登録シートのプラン番号は一意ですが、要約シートに複数のエントリがある可能性があります）。

次に、O列の次のセルにループして、次の一致を試してみます。

Answer 1

これは、あなたが求めているものを行います。

Sub foo() 
Dim RegisterLastRow As Long 
Dim SummaryLastRow As Long 
Dim UniqueLookUp As Variant 
RegisterLastRow = Sheets("Register").Cells(Sheets("Register").Rows.Count, "A").End(xlUp).Row 'get the last row with data in Register 
SummaryLastRow = Sheets("Summary").Cells(Sheets("Summary").Rows.Count, "A").End(xlUp).Row ' get the last row with data in Summary 

For x = 2 To RegisterLastRow 'loop through Register from row 2 to end (excluding headers) 
    UniqueLookUp = Sheets("Register").Cells(x, 15).Value 'get the unique value from column 15 = Column O 
    For y = 2 To SummaryLastRow 'loop through Summary from row 2 to end (to exclude headers) 
     If Sheets("Summary").Cells(y, 4).Value = UniqueLookUp Then 'if values match 
      Sheets("Summary").Cells(y, 4).EntireRow.Interior.ColorIndex = 4 'color row in green 
      Sheets("Register").Cells(x, 17).Value = Val(Sheets("Register").Cells(x, 17).Value) + Val(Sheets("Summary").Cells(y, 12).Value) 'add the values to column Q =17 on Register from Summary column L = 12 
     End If 
    Next y 
Next x 
End Sub