【资料图】
1、给你VBA代码吧因为一共有54740个结果可能等一下才看到结果的电脑用了1分半时间Dim r As LongFunction PmtSb(ByVal s As String, ByVal t As String, ByVal n As Integer) As StringConst k = 2If n < 0 Or Len(s) < n * k Then Exit FunctionIf n = 0 Thenr = r + 1Cells(r, 4) = "A" & Left(t, 2) & "B" & Mid(t, 3, 2) & "C" & Mid(t, 5, 2)Exit FunctionEnd Ifp = ""For i = 1 To Len(s) Step kp = p & PmtSb(Left(s, i - 1) & Mid(s, i + k), t & Mid(s, i, k), n - 1)NextPmtSb = pEnd FunctionSub p70_3() ‘运行这个子程序s = ""For i = 1 To 70s = s & Left(i & " ", 2)NextPmtSb s, "", 3End Sub。
本文到此分享完毕，希望对大家有所帮助。
