按要求查找数据

达州张先生

你好，看看能不能实现如下要求，数据行数大约1万多行
    根据CS列CS4、CS5数据（注意CS4、CS5数据是变化的），在数据表E列中倒数100行内，分别倒序找出五个43*的数字，并将个位*的数字分别写入CS6、CS7、CS8、CS9、CS10、CS11中。
    CU列根据CU4、CU5数据（注意CU4、CU5数据是变化的）与I列同理倒序写入到CU6、CU7、CU8、CU9、CU10中
    CW列根据CW4、CW5数据（注意CW4、CW5数据是变化的）与I列同理倒序写入到CW6、CW7、CW8、CW9、CW10中
   最好遇到重数据时，只写入一个，允许写入时不足10个数时少于10个。
敬请指导，多谢！

达州张先生

先发帖子有误，请参看现在发贴附件附件。谢谢！

xiangbaoan

Option Explicit
Sub test()
Dim ar, br, d As Object, Cel As Range, i%, j%, k%, s$, t$
Set d = CreateObject("Scripting.Dictionary")
ar = Sheets("数据").[e65536].End(xlUp).Offset(-99).Resize(100)
With Sheets("查找")
    Set Cel = .[cs3]
    br = Cel.Resize(3, 5)
    For j = 1 To UBound(br, 2) Step 2
        Cel.Offset(3, j - 1).Resize(100) = ""
        d.RemoveAll
        Dim cr()
        k = 0
        s = br(2, j) & br(3, j)
        For i = UBound(ar) To 1 Step -1
            If Left(ar(i, 1), 2) = s Then
                t = Right(ar(i, 1), 1)
                If Not d.exists(t) Then
                    d(t) = ""
                    k = k + 1
                    ReDim Preserve cr(1 To k)
                    cr(k) = t
                End If
            End If
        Next
        If k Then Cel.Offset(3, j - 1).Resize(k) = WorksheetFunction.Transpose(cr)
    Next
End With
Set d = Nothing
Set Cel = Nothing
End Sub

达州张先生

xiangbaoan 发表于 2019-6-13 16:44
Option Explicit
Sub test()
Dim ar, br, d As Object, Cel As Range, i%, j%, k%, s$, t$

你好。我复制到我原表中，出现越界了，
对不起，是我的表名错了，多谢了

xiangbaoan

达州张先生 发表于 2019-6-13 18:05
你好。我复制到我原表中，出现越界了，不知原因，原表有6000多行了，请指教一下。多谢指教！
提示下表越 ...

张先生，就你4楼附件，我反复测试，都不出现错误提示，不知你那里是怎么回事。

达州张先生

xiangbaoan 发表于 2019-6-13 18:31
张先生，就你4楼附件，我反复测试，都不出现错误提示，不知你那里是怎么回事。

多谢了，是我表名看错了

达州张先生

xiangbaoan 发表于 2019-6-13 18:31
张先生，就你4楼附件，我反复测试，都不出现错误提示，不知你那里是怎么回事。

请问：这个Resize(100)是指限制100行吗？Offset(-99).这个-99呢，请指教

xiangbaoan

达州张先生 发表于 2019-6-13 18:35
请问：这个Resize(100)是指限制100行吗？Offset(-99).这个-99呢，请指教

是的，先生！
再补充一下，Offset(-99)从最后一个不空的单元格向上再偏移99个单元格，总共就有100个单元格了，
Resize(100)就将倒数100个单元格的值装入了数组中。

达州张先生

xiangbaoan 发表于 2019-6-13 18:37
是的，先生！
再补充一下，Offset(-99)从最后一个不空的单元格向上再偏移99个单元格，总共就有100个单元 ...

你好，请教一下，如果我要计算到最后200行，是不是Offset(-99)改成Offset(-199)同时Resize(100)改成Resize(200)就可以实现呢？多谢指教！

xiangbaoan

达州张先生 发表于 2019-6-14 16:21
你好，请教一下，如果我要计算到最后200行，是不是Offset(-99)改成Offset(-199)同时Resize(100)改成Resiz ...

很对，把这句也改一下，改成200或更大的数，虽然没那么多的结果
Cel.Offset(3, j - 1).Resize(100) = ""