- Sub t()
- Dim arr(), brr(), i As Byte, d3 As String, counter As Byte
- d3 = Range("D3").Value
- arr = Range("B3:B11").Value
- For i = 1 To UBound(arr)
- If InStr(d3, Right(CLng(Mid(arr(i, 1), 1, 1)) + Mid(arr(i, 1), 2, 1), 1)) = 0 And _
- InStr(d3, Right(CLng(Mid(arr(i, 1), 1, 1)) + Mid(arr(i, 1), 3, 1), 1)) = 0 And _
- InStr(d3, Right(CLng(Mid(arr(i, 1), 2, 1)) + Mid(arr(i, 1), 3, 1), 1)) = 0 Then
- counter = counter + 1
- ReDim Preserve brr(1 To counter)
- brr(counter) = arr(i, 1)
- End If
- Next
- Range("A1:A" & UBound(brr)) = Application.Transpose(brr)
- End Sub
复制代码 我比较笨,那个任意两位数的和。。。。,就这么写写算了 |