按条件抽取并组成新的字符串

蕙质兰心

按条件抽取并组成新的字符串

砂海

=MID(A2,--LEFT(B2),--RIGHT(B2)+1-LEFT(B2))

第2行 的照着 这个样子

要连在一起 用 &
即 mid(  )&mid(   )

蕙质兰心

多谢砂海老师的回复，是抽数组合！用你的公式当条件为0-1时会出错

grf1973

1. Sub tt()
   
2.     x1 = [a2]: nmin = Val([b2]): nmax = Val(Split([b2], "-")(1))
   
3.     res = qs(x1, nmin, nmax): l1 = Len(res)
   
4.     x2 = [a3]: nmin = Val([b3]): nmax = Val(Split([b3], "-")(1))
   
5.     If Len(res) + nmin < 3 Then nmin = 3 - Len(res)
   
6.     res = res & qs(x2, nmin, nmax)
   
7.     r = [a65536].End(3).Row + 1
   
8.     Cells(r, 1) = res: Cells(r, 2) = l1: Cells(r, 3) = Len(res) - l1
   
9. End Sub
   
10. 
    
11. Function qs(xstr, nmin, nmax)   '随机取数(字符串,最小个数,最大个数)
    
12.     Dim L%
    
13.     p = Int(Rnd * (nmax - nmin + 1) + nmin)
    
14.     If p = 0 Then qs = "": Exit Function
    
15.     L = Len(xstr)
    
16.     For i = 1 To p
    
17.         pp = Int(Rnd * L + 1)
    
18.         qs = qs & Mid(xstr, pp, 1)
    
19.         Mid(xstr, pp, 1) = Mid(xstr, L, 1)
    
20.         L = L - 1
    
21.     Next
    
22. End Function
    

复制代码

蕙质兰心

grf1973老师的解法高明，佩服，是有达到效果，应当有更好的解法

蕙质兰心

若能批量返回结果就好了

蕙质兰心

继续求助

大灰狼1976

没看明白条件指的是什么