如何利用上一行的结果作为索引值对下一行进行排序

kzay

用VBA实现以下功能：将38-21行每行的结果依次作为索引值赋予下一行，比如先将“2-19行包含单元格所在行A（一个或两个）的单元格数量”赋予第20行，按索引值从大到小排列第20行；然后将“2-18行包含单元格所在行A（一个或两个）的单元格数量”赋予第19行，按索引值从大到小排列第19行，依次处理。

其中用到了自定义函数ZC，代码在文件中

清风竹-

请参考一下。

kzay

   谢 谢！！！

kzay

清风竹- 发表于 2023-12-30 11:57
请参考一下。

有时当 brr = Range("d2:bzt92") 的范围增大时,比如Range("d2:bzt91") bzt91没问题，bzt92和大于91的情况就会提示，“类型不匹配"，

还有，brr = Range("d2:bzt105")时，大部分时间会提示“类型不匹配"，如果从小往大的改成105，偶尔也不报错.

这些只是我暂时碰到的情况。
麻烦看一下什么问题。谢谢！

清风竹-

Sub 计算数据()
Range("b2:bzt105").Replace What:="，", Replacement:=","
arr = Range("b2:b105")
brr = Range("d2:bzt105")
m = UBound(arr)
n = UBound(brr, 2)
ReDim brr2(1 To m, 1 To n)

    For i = 1 To m
   
       a = Split(arr(i, 1), ",")
         For j = 1 To n
                  If i = 1 Then
                     brr2(i, j) = 0
                   Else
                     brr2(i, j) = brr2(i - 1, j)
                   End If
             For k = 0 To UBound(a)
         
                 If InStr(brr(i, j), a(k)) Then
                    If i = 1 Then
                       brr2(i, j) = 1
                    Else
                       brr2(i, j) = brr2(i - 1, j) + 1
                    End If
                 End If
            Next
        Next
    Next
   
  
[d107].Resize(m, n) = brr2
End Sub

试一试。

kzay

清风竹- 发表于 2024-1-4 16:13
Sub 计算数据()
Range("b2:bzt105").Replace What:="，", Replacement:=","
arr = Range("b2:b105")

谢谢！找到问题了，第92行有单元格值为#REF!，所以一直提示数据类型不匹配。