怎么判定在哪个节点排队？

autohotey

数据全都为正整数。
根据基础数据判定，
条件分别为0，中间值，满额值
1，当A-F列数据存在中间值时，找到排列最前的中间值所在列，并返回它所在的表头。
2，当A-F列的值各自与基础数据都相等时，返回第一列表头。
3，当存在0时，找到排列最末位的0，返回它的下一列数据的表头。
4，当末列为0时，返回末列表头

手机微信登录好像上传不了附件。只能放图片。大致数据如图

taller

示例文件呢

autohotey

taller 发表于 2024-8-25 22:07
示例文件呢

手机版上传不了附件，只能上传图片和链接

taller

1. Option Explicit
   
2. 
   
3. Sub Demo()
   
4.     Dim i As Long, j As Long
   
5.     Dim arrData, rngData As Range
   
6.     Dim arrRes, r As Range, bFlag As Boolean
   
7.     Dim RowCnt As Long, ColCnt As Long
   
8.     Set rngData = ActiveSheet.Range("A1").CurrentRegion
   
9.     arrData = rngData.Value
   
10.     RowCnt = UBound(arrData)
    
11.     ColCnt = UBound(arrData, 2)
    
12.     ReDim arrRes(1 To RowCnt, 0)
    
13.     For i = LBound(arrData) + 1 To UBound(arrData)
    
14.         bFlag = True
    
15.         Set r = Cells(i, 2).Resize(1, ColCnt - 2)
    
16.         If arrData(i, ColCnt) = 0 Then ' 规则4
    
17.             arrRes(i, 0) = arrData(1, ColCnt)
    
18.         ElseIf Application.CountIf(r, arrData(i, 1)) = ColCnt - 2 Then  ' 规则2
    
19.             arrRes(i, 0) = arrData(1, 2)
    
20.         Else
    
21.             For j = ColCnt - 1 To 2 Step -1  ' 规则3
    
22.                 If arrData(i, j) = 0 Then
    
23.                     arrRes(i, 0) = arrData(1, j + 1)
    
24.                     bFlag = False
    
25.                     Exit For
    
26.                 End If
    
27.             Next j
    
28.             If bFlag Then ' 规则1
    
29.                 For j = 2 To ColCnt - 1
    
30.                     If arrData(i, j) < arrData(i, 1) Then
    
31.                         arrRes(i, 0) = arrData(1, j)
    
32.                         Exit For
    
33.                     End If
    
34.                 Next j
    
35.             End If
    
36.         End If
    
37.     Next i
    
38.     Cells(1, ColCnt + 1).Resize(RowCnt, 1).Value = arrRes
    
39. End Sub
    

复制代码

taller

zpy2

autohotey 发表于 2024-8-26 00:06
手机版上传不了附件，只能上传图片和链接

可以切换为电脑视图访问，电脑版有。这个手机版以前也是可以上传附件的，后来不能了。

autohotey

taller 发表于 2024-8-26 01:49

感谢大佬！！！

autohotey

版主 ，帮我把这个帖子删除吧，我自己解决了