一直提示next没有for，请问怎么改

慕容紫英

Sub XX()
Dim k As Integer
For k = 1 To 1000

   Cells(1, 1).EntireRow.Copy Destination:=Sheet2.Cells(1, 1)
   Cells(1, 1).EntireRow.Copy Destination:=Sheet3.Cells(1, 1)

   If Cells(k, 5) = "黄埔" Then
      n4 = n4 + 1
      Rows(k).Copy Sheet2.Rows(n4 + 1)
   If Cells(k, 6) = "LLDPE" Or Cells(k, 6) = "LDPE" Then
         n4 = n4 + 1
      Rows(m).Copy Sheet3.Rows(n4 + 1)

End If
Next
End Sub

一直提示我next没有for 请问怎么改？

ahn

缺少了一个 End If。