时间戳

首页 > 解决方案 > 为什么我的 For 循环在最后一行之前退出？

excel - 为什么我的 For 循环在最后一行之前退出？

问题描述

我有一个相当简单For loop的内容，即查看 2 列 - NAME 和 JOB。如果单元格中有逗号分隔的名称，它会触发一个函数，将每个名称插入下面一行，然后获取新行数并将其添加到最后一行值（减 1）。然后，如果该名称旁边没有 JOB，则使用上面的 JOB 值 +1。

我遇到的问题是，即使我可以看到在LastRow我逐步执行时正在添加该LastRow值，但在循环开始时达到原始值后循环仍然退出。

即如果循环开始时LR = 100，但由于CountUnique，LR now = 115，循环在100之后仍然退出。

我不知道为什么。

 LR = Range("B" & Rows.Count).End(xlUp).Row

' Mirror missing attributes
    For i = 2 To LR
        If InStr(Cells(i, 2).Value, ",") Then
            LR = LR + CountUnique(Cells(i, 2)) - 1
        End If
        If Cells(i, 1).Value = "" Then
            Cells(i, 1).Value = Cells(i - 1, 1).Value
        End If

    Next i

Public Function CountUnique(r As Range) As Integer

  Dim c As Collection
    Set c = New Collection
    ary = Split(r.Text, ",")
    On Error Resume Next
    For Each a In ary
        c.Add a, CStr(a)
        If Err.Number = 0 Then

            If CountUnique >= 1 Then
                r.Offset(CountUnique, 0).EntireRow.Insert
                r.Offset(CountUnique, 0).Value = Trim(a)
            End If

            CountUnique = CountUnique + 1
        Else
            Err.Number = 0
        End If
    Next a

 r.Value = c.Item(1)

End Function

标签： excelvbafor-loop

解决方案

在 VB 中，循环的边界For在开始时被评估一次，并且值被缓存。

如果你想要一个动态的上限，你需要使用一个Do循环。

推荐阅读