ポイント、沢山ありがとうございました。なんか、いただき過ぎた感があるので、参考までに質問をVBAでもやってみました。(^_^; Sub macro1() Dim i, j As Integer j = 3 For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(i, "C").Value = 1 And Ce…