find找出的行数不对

prome3

亦武 发表于 2024-3-28 16:34
也是指定范围内的最后一个单元格吧？

我知道你啥意思了……一开始没明白为啥你回复里面加了个“也”字。

我的错。没注意到你整列引用了。我是习惯性的指定有限区域，潜意识地以为你也是在一个有限的区域内查找。

查找整列是效率极低的做法，而且还可能出错。如果这一列里面没有包含要查找地值，意味着 Find 函数依旧要遍历 1048576 个单元格（虽然 Find 函数内部做了优化，会自动跳过空单元格，但在逻辑上依旧要遍历整列）。然后是整列引用会包含标题，如果标题也包含了要查找的字符串，代码会悄无声息的继续错误地运行下去，最终的结果可能是错的。

再重复一遍吧，After 参数指定的单元格必须在指定范围内。这样才能形成 6 楼所提的闭环，在逻辑上才是正确的（如果要在高三（1）班里面找张三，就不能指定说在高三（7）班某个同学之后开始找，明白这意思吧……）。

prome3

亦武 发表于 2024-3-28 16:34
也是指定范围内的最后一个单元格吧？

我知道你啥意思了……一开始没明白为啥你回复里面加了个“也”字。

我的错。没注意到你整列引用了。我是习惯性的指定有限区域，潜意识地以为你也是在一个有限的区域内查找。

查找整列是效率极低的做法，而且还可能出错。如果这一列里面没有包含要查找地值，意味着 Find 函数依旧要遍历 1048576 个单元格（虽然 Find 函数内部做了优化，会自动跳过空单元格，但在逻辑上依旧要遍历整列）。然后是整列引用会包含标题，如果标题也包含了要查找的字符串，代码会悄无声息的继续错误地运行下去，最终的结果可能是错的。

再重复一遍吧，After 参数指定的单元格必须在指定范围内。这样才能形成 6 楼所提的闭环，在逻辑上才是正确的（如果要在高三（1）班里面找张三，就不能指定说在高三（7）班某个同学之后开始找，明白这意思吧……）。

prome3

亦武 发表于 2024-3-28 16:34
也是指定范围内的最后一个单元格吧？

我知道你啥意思了……一开始没明白为啥你回复里面加了个“也”字。

我的错。没注意到你整列引用了。我是习惯性的指定有限区域，潜意识地以为你也是在一个有限的区域内查找。

查找整列是效率极低的做法，而且还可能出错。如果这一列里面没有包含要查找地值，意味着 Find 函数依旧要遍历 1048576 个单元格（虽然 Find 函数内部做了优化，会自动跳过空单元格，但在逻辑上依旧要遍历整列）。然后是整列引用会包含标题，如果标题也包含了要查找的字符串，代码会悄无声息的继续错误地运行下去，最终的结果可能是错的。

再重复一遍吧，After 参数指定的单元格必须在要查找的范围内。这样才能形成 6 楼所提的闭环，在逻辑上才是正确的（如果要在高三（1）班里面找张三，就不能指定说在高三（7）班某个同学之后开始找，明白这意思吧……）。

亦武

prome3 发表于 2024-3-28 17:44
我知道你啥意思了……一开始没明白为啥你回复里面加了个“也”字。

我的错。没注意到你整列引用了。我 ...

多谢你说得这么清楚。

125675117

能否把更正后的代码发上来学习一下？

亦武

125675117 发表于 2024-3-29 08:34
能否把更正后的代码发上来学习一下？

Sub 区域复制()
    Dim minrow%, maxrow%, i%, 计数%, 次数%, qianmian As Range, houmian As Range
    计数 = WorksheetFunction.CountA([h:h])
    For i = 1 To 计数
        Set qianmian = Range("b:b").Find(Cells(i, 8), [b1048576]) '找到第一个符合的目标
        Set houmian = Range("b:b").Find(Cells(i, 8), , , , , 2) '倒序找到最后一个符合的目标
        minrow = qianmian.Row '最小行数
        maxrow = houmian.Row '最大行数
        If 次数 = 0 Then
            Cells(minrow, 1).Resize(maxrow - minrow + 1, 5).Copy _
                Cells(Cells(Rows.Count, 10).End(xlUp).Row, 10) '先将找到的数据扩展到整个区域，再复制到指定的地方
        Else
            Cells(minrow, 1).Resize(maxrow - minrow + 1, 5).Copy _
                Cells(Cells(Rows.Count, 10).End(xlUp).Row + 1, 10) '上次复制后的单元格向下移一位做为新的复制地址
        End If
        次数 = 次数 + 1
    Next i
End Sub