vba - セルDが「MSD__CMT_Change」に含まれている場合

Question

VBAコードは次のことを行うために何をしますか。

if cell = MSD_CMT_CHANGE then  

    compare cell above it if equal "MSD_CHANGE" then 

        cell E1 = E2.

5000行を超えるデータがあります。

より良い説明のために下の画像をチェックしてください。

Answer 1

次のようなものを試してください。

Sub Test
    Dim rng as Range, cl as Range

    Set rng = Range("D2:D" & Range("D" & Rows.Count).End(xlUp).Row)

    For each cl in rng
       If cl = "MSD_CMT_CHANGE" AND cl.Offset(-1, 0) = "MSD_CHANGE" Then
           cl.Offset(-1, 1) = cl.Offset(0, 1)
       End If
    Next cl
End Sub