求较复杂的公式

lagos

提取相同数字的序数，详情请看附件： 求公式.rar (7.04 KB, 下载次数: 49)

2024-7-22 21:31 上传

点击文件名下载附件

jivy1212

1. =IFERROR(MOD(SMALL(IF((COUNTIF(OFFSET($B$2:$K$2,{1;2},),$B$3:$K$4)=2)*($B$3:$K$4<>$C$3:$L$4),$B$3:$K$4*100+$B$2:$K$2+{1;2}/1%%),ROW(A1)*2-{1,0}),10),"")

复制代码

横向二个单元格区域数组下拉

袁勇

1. =IFERROR(MOD(AGGREGATE(15,6,({3;4}/1%%+$B$3:$K$4*10+$B$2:$K$2)/((COUNTIF(OFFSET($B$2:$K$2,{1;2},),$B$3:$K$4)=2)*($B$3:$K$4<>$C$3:$L$4)),ROW(A1)*2-+MOD(COLUMN(A1),2)),10),"")

复制代码

niko88819

VBA

1. Sub niko()
   
2.     Dim ws As Worksheet
   
3.     Set ws = ThisWorkbook.Sheets("Sheet1")
   
4.     Dim outputRow As Integer
   
5.     outputRow = 12
   
6. 
   
7.     Dim row As Integer
   
8.     For row = 3 To 7
   
9.         Dim dataRange As Range
   
10.         Set dataRange = ws.Range("B" & row & ":K" & row)
    
11.         Dim headerRange As Range
    
12.         Set headerRange = ws.Range("B2:K2")
    
13.         Dim dict As Object
    
14.         Set dict = CreateObject("Scripting.Dictionary")
    
15.         Dim i As Long
    
16.         For i = 1 To dataRange.Cells.Count
    
17.             Dim key As Variant
    
18.             key = dataRange.Cells(1, i).Value
    
19.             If key >= 2 Then
    
20.                 If Not dict.Exists(key) Then
    
21.                     dict.Add key, New Collection
    
22.                 End If
    
23.                 dict(key).Add i
    
24.             End If
    
25.         Next i
    
26.         Dim keyCheck As Variant
    
27.         For Each keyCheck In dict.Keys
    
28.             If dict(keyCheck).Count = 2 Then
    
29.                 ws.Cells(outputRow, 1).Value = headerRange.Cells(1, dict(keyCheck)(1)).Value
    
30.                 ws.Cells(outputRow, 2).Value = headerRange.Cells(1, dict(keyCheck)(2)).Value
    
31.                 outputRow = outputRow + 1
    
32.                 If outputRow > 30 Then Exit Sub
    
33.             End If
    
34.         Next keyCheck
    
35.     Next row
    
36. End Sub

复制代码

niko88819

请楼主进行测试一下，把C4单元格的值更改为2时，再看结果有没有出来