gpt4 book ai didi

excel - 在 VBA For 循环中,大约 530 次迭代后停止执行

转载 作者:行者123 更新时间:2023-12-03 01:28:05 27 4
gpt4 key购买 nike

我已经为与工作相关的任务编写了简单的代码,但它在 530 次迭代时停止执行,没有任何错误消息,而我仍然有一些应该处理的数据。

尝试删除 VBA 中的所有代码并将其从记事本粘贴到其中。尝试过调试器。尝试重新启动 Excel 和电脑。

Function CoRow() As Long
CoRow = Cells(Rows.Count, 1).End(xlUp).Row
End Function

Sub Sort()
Dim LastNace As Integer
Dim NextNace As Integer
Dim i As Long
LastNace = Cells(2, "C").Value
NextNace = Cells(3, "C").Value
Columns("A:E").Select
Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range("E2"), Order2:=xlDescending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
For i = 1 To CoRow
If LastNace <> NextNace And LastNace <> 0 And NextNace <> 0 And i <> 1 Then
Rows(i + 1).EntireRow.Insert
Range(Cells(i + 1, 1), Cells(i + 1, 5)).Interior.Color = RGB(255, 255, 0)
i = i + 1
ElseIf LastNace <> NextNace And LastNace <> 0 And NextNace = 0 And i <> 1 Then
Rows(i + 1).EntireRow.Insert
Range(Cells(i + 1, 1), Cells(i + 1, 5)).Interior.Color = RGB(255, 255, 0)
i = i + 1
End If
LastNace = Cells(i + 1, "C").Value
NextNace = Cells(i + 2, "C").Value
'Range(Cells(i + 1, 3).Address(), Cells(i + 1, 3).Address()).Interior.Color = RGB(255, 0, 0)
Next i
End Sub

预期结果超过 530 次迭代。我怀疑排序有问题,因为在执行此代码之前它也对相同数量的行进行排序。

最佳答案

您对 CoRow 的重新计算不会影响循环的结束!

请注意,在 For 中循环,一旦循环开始

For i = 1 To CoRow

CoRow 的任何值变化不影响循环的结束! For循环始终使用 CoRow 的值这是在循环开始时设置的。

以下示例:

Dim i As Long
Dim iEnd As Long
iEnd = 10

For i = 1 To iEnd
iEnd = 20 'this has NO EFFECT on the end of the For loop
Debug.Print i, iEnd
Next i

此循环仅从 1 … 10 运行因为一旦循环以 For i = 1 To iEnd 开始iEnd = 20 的任何更改不影响循环的结束。

<小时/>

解决方案

将其替换为 Do循环。

Dim i As Long
Dim iEnd As Long
iEnd = 10

i = 1 'initialization needed before Do loops

Do While i <= iEnd
iEnd = 20
Debug.Print i, iEnd

i = i + 1 'manual increase of counter needed in the end of Do loops
Loop

请注意,对于 Do您需要初始化计数器 i = 1 的循环并手动增加它i = i + 1 。这次的变化是iEnd = 20生效,循环从1 … 20开始运行因为Do循环评估条件 i <= iEnd每次迭代中(不仅仅是像 For 循环一样在开始时)。

替代方案

另一个解决方案(如果插入或删除行)是向后运行循环:

Dim CoRow As Long 'make it a variable not a function then
CoRow = Cells(Row.Count, 1).End(xlUp).Row

Dim i As Long
For i = CoRow To 1 Step -1
'runs backwards starting at the last row ending at the first
Next i

但是这是否可能取决于您的数据以及您在循环中执行的操作。

<小时/>

改进

请注意这个 CoRow = Cells(Rows.Count, 1).End(xlUp).Row会吃一段时间。而不是制作 CoRow一个函数使它成为一个变量,只需将其增加 1 CoRow = CoRow + 1每次插入一行时,这都会比一遍又一遍地确定最后一行要快得多。

关于excel - 在 VBA For 循环中,大约 530 次迭代后停止执行,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/54415661/

27 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com