在排列组合中查找数字的VBA代码

gwjkkkkk

Option Explicit
Sub test2()
    Dim ar, br, i&, j&, r&, isFlag As Boolean
   
    Application.ScreenUpdating = False
   
    r = Cells(Rows.Count, "A").End(xlUp).Row
    ar = Range("A2:C" & r).Value
    br = Array(1, 3)
    For i = 1 To UBound(ar)
        isFlag = True
        For j = 0 To UBound(br)
            If InStr(ar(i, 2), Mid(ar(i, 1), br(j), 1)) = 0 Then isFlag = False: Exit For
        Next j
        If isFlag Then ar(i, 3) = 1 Else ar(i, 3) = 0
    Next i
        
    [A2].Resize(UBound(ar), 3) = ar
    Application.ScreenUpdating = True
    Beep
End Sub

838833928

ynzsvt 发表于 2025-4-6 10:52

第一列数字顺序用12345代替，位置分别为，12/13/14/15/23/24/25/34/35/45/，第二列中的数字分别查询的结果怎么表达

gwjkkkkk

838833928 发表于 2025-4-6 11:02
第一列的第一位和第三位数字又怎么表达呢

公式也可以，代码审核中。。。

1. =IF(SUMPRODUCT(IFERROR(FIND(MID(A2,{1,3},1),B2)^0,))=2,1,0)

复制代码

838833928

gwjkkkkk 发表于 2025-4-6 11:12
Option Explicit
Sub test2()
    Dim ar, br, i&, j&, r&, isFlag As Boolean

第一列数字顺序用12345代替，位置分别为，12/13/14/15/23/24/25/34/35/45/，第二列中的数字分别查询的结果怎么表达

ynzsvt

多了一个参数在第一行。

838833928

没有解决的方法吗

ynzsvt

838833928 发表于 2025-4-6 13:27
没有解决的方法吗

啥意思，不满意在哪

838833928

ynzsvt 发表于 2025-4-6 13:29
啥意思，不满意在哪

就是把5位数里面的全部排列出来

ynzsvt

我的文件你自己再加4列带5的数字，然后公式拖拉就完成了。

838833928

ynzsvt 发表于 2025-4-6 10:52

对子数字不算，怎么修改