循环无故跳出

华中人士 · 发表于 2012-4-24 23:37

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

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

mjzxlmg · 发表于 2012-4-24 23:41

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

feng16888 · 发表于 2012-4-24 23:53

什么都不说，我也不说

华中人士 · 发表于 2012-4-25 12:15

本帖最后由华中人士于 2012-4-25 18:20 编辑

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

求助1.jpg

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

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
'**************************把光标定位在源工作表中****************************************

		自动登录	找回密码
密码			免费注册

[求助] 循环无故跳出