vba - 列の条件に基づいて Excel で重複行をコピーする

Question

Excel のワークシートに新しい行を追加するとき、列 D と E が別の既存の行の列 D と E に一緒に存在する場合、その既存の行の列 F が新しい行の列 F にコピーされるようにしています。

  A    B    C    D    E    F
  A    B    C    D    E    F
  A    B    C    D    E    F
 NEW  NEW  NEW  NEW  NEW  NEW

これは IF 関数を使用して行うことができますか、それとも VBA で作成する方が簡単ですか?

Answer 1

この小さなマクロを試してください:

Sub dural()
    Dim N As Long
    N = Cells(Rows.Count, "D").End(xlUp).Row
    Dim i As Long
    d = Cells(N, "D").Value
    e = Cells(N, "E").Value

    For i = N - 1 To 1 Step -1
        dt = Cells(i, "D").Value
        et = Cells(i, "E").Value
        If d = dt And e = et Then
            MsgBox "match found"
            Cells(N, "F").Value = Cells(i, "F").Value
        Exit Sub
        End If
    Next i
    MsgBox "no match found"
End Sub

したがって、最初に新しい行のセルEとDの両方に入力してから、マクロを実行します。