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

838833928

请诸位大师看附件

翁知江安

楼主，没看懂你的规则。能详细解释一下？

838833928

翁知江安 发表于 2025-4-6 08:43
楼主，没看懂你的规则。能详细解释一下？

第一列的前两位数字，在第二列的数字组合里面进行查找，列如前两位数字位12，第二列的数字位321，顺序不限，在第三列中得到答案，1表示有，0表示无

ynzsvt

看看猜得对不对

ynzsvt

更正如下：

1. Function BdHf(StA$, StB$)
   
2. Dim i&, n&, St1$
   
3. For i = 1 To 2
   
4.   St1 = Mid(StA, i, 1)
   
5.   If InStr(StB, St1) Then n = n + 1: StB = Replace(StB, St1, "|", , 1)
   
6. Next 'i
   
7. If n = 2 Then BdHf = 1 Else BdHf = 0
   
8. End Function

复制代码

gwjkkkkk

gwjkkkkk

Option Explicit
Sub test2()
    Dim ar, i&, j&, r&, isFlag As Boolean
   
    Application.ScreenUpdating = False
   
    r = Cells(Rows.Count, "A").End(xlUp).Row
    ar = Range("A2:C" & r).Value
    For i = 1 To UBound(ar)
        isFlag = True
        For j = 1 To 2
            If InStr(ar(i, 2), Mid(ar(i, 1), 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 09:58
更正如下：

第一列的第一位和第三位数字又怎么表达呢

ynzsvt

1. Function BdHf(StA$, StB$)
   
2. Dim i&, n&, St1$, Ar
   
3. Ar = Array(1, 3)
   
4. For i = 0 To 1
   
5.   St1 = Mid(StA, Ar(i), 1)
   
6.   If InStr(StB, St1) Then n = n + 1: StB = Replace(StB, St1, "|", , 1)
   
7. Next 'i
   
8. If n = 2 Then BdHf = 1 Else BdHf = 0
   
9. End Function

复制代码

838833928

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

第一列的第一位和第三位数字又怎么表达呢