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

ynzsvt

专有名词要上文件和具体实例说清楚。要指明要改变的一个结果单元格。

838833928

ynzsvt 发表于 2025-4-6 19:15
专有名词要上文件和具体实例说清楚。要指明要改变的一个结果单元格。

就是位置1不等于位置2

翁知江安

Sub test406()
Dim i, j, m As Integer, p As String
Dim ar, br As Variant
ar = Sheet1.Range("a1:b" & Sheet1.[a65336].End(xlUp).Row)
ReDim br(1 To UBound(ar) - 1, 1 To 1)
For i = 2 To UBound(ar)
   For j = 1 To 2
   p = Mid(ar(i, 1), j, 1)
   If InStr(ar(i, 2), p) > 0 Then
        m = m + 1
    End If
    Next
    If m = 2 Then
    br(i - 1, 1) = 1
    Else
    br(i - 1, 1) = 0
    End If
    m = 0
Next
Sheet1.[f2].Resize(10000, 1).ClearContents
Sheet1.[f2].Resize(UBound(ar) - 1, 1) = br
MsgBox "ok"
End Sub

翁知江安

供参考,欢迎批评指正

838833928

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

                                                               请看附件

白天上班，只能远程看电脑，晚上回来才有时间，望诸位谅解

ynzsvt

838833928 发表于 2025-4-6 22:27
请看附件

白天上班，只能远程看电 ...

A列和B列要错行的？不能在第一行输入12/13/23等10个条件，用三个参数的公式？我的4楼总的15楼你没下载使用。