选项相同的题号去重

yunuo111

各位大神，求助，如果选项相同，把第二次出现的题号改同第一次相同

khuutd

公式=IF(XLOOKUP(B2,$B$2:$B$41,$A$2:$A$41)<>0,XLOOKUP(B2,$B$2:$B$41,$A$2:$A$41),"")可以解决（公式下拉即可）。

yunuo111

khuutd 发表于 2024-4-3 13:59
公式=IF(XLOOKUP(B2,$B$2:$B$41,$A$2:$A$41)0,XLOOKUP(B2,$B$2:$B$41,$A$2:$A$41),"")可以解决（公式下拉即 ...

感谢，我试了下，我改了后面其中一个选项，但是公式判定题号相同的

yunuo111

khuutd 发表于 2024-4-3 13:59
公式=IF(XLOOKUP(B2,$B$2:$B$41,$A$2:$A$41)0,XLOOKUP(B2,$B$2:$B$41,$A$2:$A$41),"")可以解决（公式下拉即 ...

公式好像只针对第一个选项，需要整个选项相同才可以，并且顺序也相同，顺序或者选项不相同，题号就不能相同

swl4561255

1. Sub test()
   
2. ar = [B2].End(4).Row
   
3. arr = Range("A2:B" & ar)
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. For i = 1 To ar - 1
   
6.   If Not d.exists(arr(i, 2)) Then
   
7.      d(arr(i, 2)) = arr(i, 1)
   
8.   End If
   
9. Next
   
10. For j = 2 To ar
    
11.   Range("D" & j) = d(Cells(j, 2).Value)
    
12. Next
    
13. Set d = Nothing
    
14. Set myr = Union(Range("A2:A" & ar), Range("D2:D" & ar))
    
15. myr.Copy Sheets("目录").[A2]
    
16. Sheets("目录").Activate
    
17. ActiveSheet.Cells.SpecialCells(xlCellTypeBlanks).Select
    
18. Selection.Cells.Delete shift:=xlUp
    
19. End Sub
    

复制代码

yunuo111

swl4561255 发表于 2024-4-3 14:38

改了选项好像运行还是同一个题号，没有把方框里的看作一个整体

zpy2

yunuo111 发表于 2024-4-3 14:11
感谢，我试了下，我改了后面其中一个选项，但是公式判定题号相同的

试了下，我改了后面其中一个选项，但是公式判定题号相同

题号相同啥意思？

选项相同，改题目？
不是删除重复行？

taller