Sheet1のJ列に AA-、AB-、AC-のいずれかで始まる製番があった時、 I列の値ををB列の同行へ、J列の値をＥ列の同行へ、 K列の値をC列の同行へ移動するマクロをご指南ください。 （I、J、Kは空白にする） Sub test() Dim lstRow As Long, i As Long lstRow = Cells(Rows.Count, 10).End(xlUp).Row For i = 2 To lstRow If Cells(i, 10) Like "AA-*"Or Cells(i, 10) Like "AB-*"Or Cells(i, 10) Like "AC-*"Then Cells(i, 2) = Cells(i, 9) Cells(i, 5) = Cells(i, 10) Cells(i, 3) = Cells(i, 11) Range(Cells(i, 9), Cells(i, 11)).ClearContents End If Next i End Sub と、いう回答を前回いただきました。 そこで追記です。 AA-、AB-、AC-のいずれかで始まる製番が なかったらエラーになってしまいます。 エラー回避のマクロをご指南ください。 宜しくお願い申し上げます。