質問: Rw + 1 End If End With Loop Until Cells(Rows.Count, 1).End(xlUp).Row <= Rw End Sub
回答: 上から処理するからいけないので、下から処理しましょう。一番下に移動して、行番号を-1しながら1行上が自分と同じだったら自分を"〃"にするんです。