求助：运行VBA总是报错误！

zlpchwch

请教高手：
      我写了段VBA程序，能够实现我的目的，但是总是报错误，请帮我看看。
Public Sub 切割人()
Dim i, m, add, X As Long
Sheets("切割人").Cells(2, 1).Value = Sheets("源数据表").Range("f2").Value
X = 3
m = 2
Do While Not (IsEmpty(Sheets("源数据表").Range("f2").Value))
   If Sheets("源数据表").Range("g" & X) = "单向" Then
   add = 0
   For i = 2 To m
    If Not (Sheets("源数据表").Cells(X, 6).Value = Sheets("切割人").Cells(i, 1).Value) Then
    add = add + 1
    End If
    Next i
   If add = m - 1 Then
    Sheets("切割人").Cells(m + 1, 1).Value = Sheets("源数据表").Cells(X, 6).Value
    m = m + 1
   End If
   End If
   X = X + 1
Loop
End Sub

谢谢了！

hwc2ycy

F8，看看哪行出错吧，

zlpchwch

hwc2ycy 发表于 2013-11-13 23:00
F8，看看哪行出错吧，

我逐条按照F8都跑完了，想要的结果都显示出来了，也没有看见错误。按F5就出现这样的报错。
您是烟花？

hwc2ycy

那传个附件吧，偶素烟花。