循环无故跳出

华中人士

求助.rar (215.16 KB, 下载次数: 21)

2012-4-24 23:36 上传

点击文件名下载附件

本人初学VBA ,还搞不懂各中的原理 因工作需要 拷贝了别人的VBA ,运行后发现老是无故跳出 .研究了好久 还是一无所获  现求助于各位大虾.内容见附件

mjzxlmg

什么也没有留下，不知你要干什么。

feng16888

什么都不说，我也不说

华中人士

不好意思 因表达方法不好 以为看附件能更清楚


要求:一组人员自动添加1月份的日期  望各位大虾帮忙.
目标:


Sub 循环产生日期()   '根据 Sub sxh修改   来源 EXCELHOME----请教如何做这个判断循环
Dim LASTR, I, J, K As Long
Application.ScreenUpdating = False
AAA = Timer
LASTR = Range("D" & Rows.Count).End(xlUp).Row
For I = 3 to LASTR       '915---1142
If Cells(I, 4) <> "" Then
Cells(I, 5) = "1/1/2012"   '有问题
For J = 1 To 31
  Rows(I+j).Insert Shift:=xlUp
  Cells(I+j, 1) = Cells(I +j- 1, 1)
  Cells(I+j, 2) = Cells(I+j - 1, 2)
  Cells(I+j, 3) = Cells(I +j- 1, 3)
  Cells(I+j, 4) = Cells(I +j- 1, 4)
  Cells(I+j, 5) = Cells(I+j - 1, 5) - 1
Next
  End If '运行到光标处
i = i+j- 1
LASTR = Range("D" & Rows.Count).End(xlUp).Row
Next '为何半路跳出循环
Application.ScreenUpdating = True
MsgBox "程序运行了：" & Format(Timer - AAA, "0.0000") & "秒"
End Sub
'**************************把光标定位在源工作表中****************************************