双条件标记

风雨相随3

求公式，双条件标记。 双条件标记.rar (9.72 KB, 下载次数: 15)

2024-5-24 18:38 上传

点击文件名下载附件

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.5.25
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     With Sheets("Sheet1")
   
5.         r = .Cells(Rows.Count, 1).End(3).Row
   
6.         arr = .[a1].Resize(r, 3)
   
7.         For i = 2 To UBound(arr)
   
8.             s = arr(i, 1) & "|" & arr(i, 2)
   
9.             If Not d.exists(s) Then
   
10.                 m = m + 1
    
11.                 d(s) = m
    
12.                 arr(i, 3) = m
    
13.             Else
    
14.                 r1 = d(s)
    
15.                 arr(i, 3) = r1
    
16.             End If
    
17.         Next
    
18.         .[a1].Resize(r, 3) = arr
    
19.     End With
    
20.     Application.ScreenUpdating = True
    
21.     MsgBox "OK！"
    
22. End Sub
    
23. 
    

复制代码

蓝桥玄霜

条件的例子：

风雨相随3

ykcbf1100 发表于 2024-5-24 19:02
附件供参考。。。

有函数完成没？

ykcbf1100

风雨相随3 发表于 2024-5-24 19:29
有函数完成没？

函数我不熟悉呢。

魚。。

1. =IF(COUNTIFS(A$2:A2,A2,B$2:B2,B2)=1,MAX(C$1:C1)+1,LOOKUP(2,0/(A$1:A1=A2)/(B$1:B1=B2),C$1:C1))

复制代码

LIUZHU

函数解决的话，要发到函数及公式板块

沈默00

沈默00

参与一下....