Do Until Cells(n + 1, 1).Value = "" Cells(n + 1, 10).Value = Cells(n + 1, 1).Value If Cells(n + 1, 1).Value > startdate Then If Cells(n + 1, 1).Value < enddate Then Cells(n + 1, 11).Value = Cells(n + 1, 2).Value Rows(n + 1).Copy Rows(n + 500).PasteSpecial ←ここまでは動いて、ちゃんとコピペした。
Worksheets("sheet3").Select Do Until Cells(m + 1, 1).Value = "" If Cells(m + 1, 1).Value = "" Then Worksheets(1).Select Rows(n + 1).Copy Worksheets(3).Select Rows(m + 1, 1).PasteSpecial ← ワークシート3にコピペしてくれない(´･д･`) どこが悪い？ End If m = m + 1 Loop End If End If n = n + 1 Worksheets(1).Select Loop
