Sub diff() Dim r As Range On Error Resume Next Set r = Application.InputBox(prompt:="編集後のセル範囲指定をしてください", Type:=8) r.Select Application.CutCopyMode = False Dim rng As Range Set rng = Application.InputBox(prompt:="編集前シー…