[已解决]用VBA把A列单元格 每一个数字全排列结果保存CH列

laoau138

用VBA把A列单元格   每一个数字全排列结果保存CH列

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-5-10 08:46

1. Sub aaa()
   
2. Dim arr, i&, j&, a&, b&, c&, brr, n&
   
3. arr = [a1].CurrentRegion
   
4. ReDim brr(1 To UBound(arr), 1 To 6)
   
5. For i = 1 To UBound(arr)
   
6.   For a = 1 To 3
   
7.     For b = 1 To 3
   
8.       For c = 1 To 3
   
9.         If a <> b And b <> c And a <> c Then
   
10.           j = j + 1
    
11.           n = arr(i, 1)
    
12.           brr(i, j) = "'" & Mid(n, a, 1) & Mid(n, b, 1) & Mid(n, c, 1)
    
13.         End If
    
14.       Next c
    
15.     Next b
    
16.   Next a
    
17.   j = 0
    
18. Next i
    
19. [c1].Resize(UBound(arr), 6) = brr
    
20. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub aaa()
   
2. Dim arr, i&, j&, a&, b&, c&, brr, n&
   
3. arr = [a1].CurrentRegion
   
4. ReDim brr(1 To UBound(arr), 1 To 6)
   
5. For i = 1 To UBound(arr)
   
6.   For a = 1 To 3
   
7.     For b = 1 To 3
   
8.       For c = 1 To 3
   
9.         If a <> b And b <> c And a <> c Then
   
10.           j = j + 1
    
11.           n = arr(i, 1)
    
12.           brr(i, j) = "'" & Mid(n, a, 1) & Mid(n, b, 1) & Mid(n, c, 1)
    
13.         End If
    
14.       Next c
    
15.     Next b
    
16.   Next a
    
17.   j = 0
    
18. Next i
    
19. [c1].Resize(UBound(arr), 6) = brr
    
20. End Sub

复制代码

龙送农

大灰狼1976 发表于 2017-5-10 08:46

vba按月统计1
http://www.excelpx.com/thread-430040-1-1.html
(出处: Excel精英培训网)