[已解决]求个vba

faiki

book1.rar (54.05 KB, 下载次数: 15)

2014-7-21 10:33 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2014-7-22 11:15

1. Sub demo()
   
2.     arr = Range("I3:P4")
   
3.     ReDim brr(1 To 40 * UBound(arr, 2), 1 To 1)
   
4.     For i = 1 To UBound(arr, 2)
   
5.         x = arr(1, i): y = arr(2, i)
   
6.         For j = 1 To 4
   
7.             a = Mid(x, j, 1): b = Mid(y, j, 1)
   
8.             For k = 0 To 9
   
9.                 n = n + 1
   
10.                 brr(n, 1) = a & b & k
    
11.             Next
    
12.         Next
    
13.     Next
    
14.     [g3].Resize(n, 1) = brr
    
15. End Sub
    

复制代码

跳转到最佳答案楼层

易安1

没有模拟的结果数据 表述不清 看不懂

faiki

易安1 发表于 2014-7-21 13:17
没有模拟的结果数据 表述不清 看不懂

我举个例吧,i3是0083,i4是8522,i3跟i4的第一位组合是08,再用0到9着第三位再组合,变成080,081,082,083,084,085,086,087,088,089,   后面2,3,4位都一样组合

grf1973

1. Sub demo()
   
2.     arr = Range("I3:P4")
   
3.     ReDim brr(1 To 40 * UBound(arr, 2), 1 To 1)
   
4.     For i = 1 To UBound(arr, 2)
   
5.         x = arr(1, i): y = arr(2, i)
   
6.         For j = 1 To 4
   
7.             a = Mid(x, j, 1): b = Mid(y, j, 1)
   
8.             For k = 0 To 9
   
9.                 n = n + 1
   
10.                 brr(n, 1) = a & b & k
    
11.             Next
    
12.         Next
    
13.     Next
    
14.     [g3].Resize(n, 1) = brr
    
15. End Sub
    

复制代码

grf1973

请看附件。