[已解决]个位数字转换成双数

开心又快乐

附件内有说明，先谢啦！ 如何把个位改成双数.rar (3.14 KB, 下载次数: 13)

2014-7-4 19:03 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

易安1

2014-7-6 13:08

1. Sub test()
   
2. Dim i As Integer, j As Integer, k As Integer
   
3. Dim ZF As String
   
4. For i = 1 To Cells(Rows.Count, 2).End(3).Row
   
5.     For k = 1 To Len(Cells(i, 2))
   
6.             For j = 1 To 4
   
7.             ZF = ZF & j & Mid(Cells(i, 2), k, 1) & " "
   
8.         Next
   
9.             ZF = ZF & Mid(Cells(i, 2), k + 1, 1) & " "
   
10.       
    
11.     Next
    
12.     If Left(Cells(i, 2), 1) = "0" Then
    
13.         Cells(i, 3) = ZF
    
14.     Else
    
15.         Cells(i, 3) = Left(Cells(i, 2), 1) & " " & ZF
    
16.     End If
    
17.     ZF = ""
    
18. Next
    
19. End Sub
    

复制代码

试试吧
附件模拟结果放D列 对比

跳转到最佳答案楼层

易安1

组合规则都不给 没法写

开心又快乐

易安1 发表于 2014-7-4 19:22
组合规则都不给 没法写

你好！根据B列的大小序转就行了。比如，B列里的2568，转换后就是

2 12 22  32 42 5 15 25 35 45 6 16 26 36 46 8 18 28 38 48

没有什么其它的规则。最小数1，最大数49，I列里都有了！

tgydslr

怎么解决了，分享一下方案吧

妹纸

等学习。

易安1

1. Sub test()
   
2. Dim i As Integer, j As Integer, k As Integer
   
3. Dim ZF As String
   
4. For i = 1 To Cells(Rows.Count, 2).End(3).Row
   
5.     For k = 1 To Len(Cells(i, 2))
   
6.             For j = 1 To 4
   
7.             ZF = ZF & j & Mid(Cells(i, 2), k, 1) & " "
   
8.         Next
   
9.             ZF = ZF & Mid(Cells(i, 2), k + 1, 1) & " "
   
10.       
    
11.     Next
    
12.     If Left(Cells(i, 2), 1) = "0" Then
    
13.         Cells(i, 3) = ZF
    
14.     Else
    
15.         Cells(i, 3) = Left(Cells(i, 2), 1) & " " & ZF
    
16.     End If
    
17.     ZF = ""
    
18. Next
    
19. End Sub
    

复制代码

试试吧
附件模拟结果放D列 对比

开心又快乐

易安1 发表于 2014-7-6 13:08
试试吧
附件模拟结果放D列 对比

谢谢老师！完全符合要求，非常棒！

易安1

开心又快乐 发表于 2014-7-11 09:31
谢谢老师！完全符合要求，非常棒！

符合要求就好

chunlin1wang

如果数字小于4位可以用公式

1. =TEXT(INT(TEXT(A1,REPT("0\0\0\0\0",LEN(A1)))*1.1111),REPT("0 10 20 30 40 ",LEN(A1)))

复制代码

chunlin1wang

不讲排序可以

1. =TEXT(A1,REPT("0 ",LEN(A1)))&TEXT(A1,REPT("10 ",LEN(A1)))&TEXT(A1,REPT("20 ",LEN(A1)))&TEXT(A1,REPT("30 ",LEN(A1)))&TEXT(A1,REPT("40 ",LEN(A1)))

复制代码