用代码怎么实现=IF(COUNTIF($Q9:$AE9,AG$2)>0,AG$2,"")

cys888

hfwufanhf2006

cys888 发表于 2020-6-8 15:59
这里只举例列出9--12行，运行速度感觉不出来慢，如果是1000多行的数字，运行速度巨慢，有没有办法优化一 ...

数组代码在审核，我再上传个附件试试；

hfwufanhf2006

For i = 9 To 12
    For k = 33 To 62
        s = Cells(2, k)
        bz = False
        For j = 17 To 31
            If Cells(i, j) = s Then
               bz = True
               Exit For
            End If
        Next j
        If bz Then
           Cells(i, k) = s
        Else
           Cells(i, k) = ""
        End If
    Next k
Next i

cys888

hfwufanhf2006 发表于 2020-6-8 11:18
For i = 9 To 12
    For k = 33 To 62
        s = Cells(2, k)

这里只举例列出9--12行，运行速度感觉不出来慢，如果是1000多行的数字，运行速度巨慢，有没有办法优化一下？

hfwufanhf2006

cys888 发表于 2020-6-8 15:59
这里只举例列出9--12行，运行速度感觉不出来慢，如果是1000多行的数字，运行速度巨慢，有没有办法优化一 ...

改成数组，要么你自己改，要么你上传一个1000行数据的文件。你这种结构的数据，我当做是你在练习或者是搞些小数据的查询。
提问题的模拟文件要与实际数据基本上差不多才行，我经常看到有人上传的文件不到10行，但事后说实际数据有几十万行。几十行怎么写都行，几十万行...那可不是个简单问题，要仔细选择方法；

hfwufanhf2006

cys888 发表于 2020-6-8 15:59
这里只举例列出9--12行，运行速度感觉不出来慢，如果是1000多行的数字，运行速度巨慢，有没有办法优化一 ...

我没注意到你已经上传了附件，下面是代码。结构是一样的，只是改成了数组：

Range("ag9:bj10000").ClearContents
Dim arr
Dim arr1
arr = Range("q9:ae" & [q100000].End(3).Row)
arr1 = Range("ag2:bj2")
Dim brr()
ReDim brr(1 To UBound(arr), 1 To UBound(arr1, 2))
For i = 1 To UBound(arr)
    For k = 1 To UBound(arr1, 2)
        bz = False
        For j = 1 To UBound(arr, 2)
            If arr(i, j) = arr1(1, k) Then
               bz = True
               Exit For
            End If
        Next j
        If bz Then
           brr(i, k) = arr1(1, k)
        Else
           If j <= 15 Then
              brr(i, k) = ""
           End If
        End If
    Next k
Next i
Range("ag9").Resize(UBound(arr), UBound(arr1, 2)) = brr

cys888

hfwufanhf2006 发表于 2020-6-8 16:10
改成数组，要么你自己改，要么你上传一个1000行数据的文件。你这种结构的数据，我当做是你在练习或者是搞 ...

非常感谢您的热心帮助！！！问题解决了

hfwufanhf2006

cys888 发表于 2020-6-8 16:48
非常感谢您的热心帮助我自己改没那个水平，我上传了1000行数据的文件，再次麻烦您帮助
...

上面有代码了

cys888

hfwufanhf2006 发表于 2020-6-8 16:52
上面有代码了

非常感谢