[已解决]求把数拆分开

hjuy78

Book2.rar (3.04 KB, 下载次数: 25)

2012-1-21 12:23 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

爱疯

2012-1-21 13:37

1. 
   
2. Sub test()
   
3.     Dim A, i%, j%, k%, x$, y$
   
4.     A = [b12:bj20]
   
5.     For j = 1 To UBound(A, 2)       '遍历列
   
6.         For i = 7 To 9              '遍历18,19,20行
   
7.             Select Case Mid(A(1, j), i - 6, 1)
   
8.             Case 0 To 4
   
9.                 x = 10
   
10.             Case 5 To 9
    
11.                 x = 15
    
12.             End Select
    
13.             x = Right(CStr(x - Mid(A(2, j), i - 6, 1)), 1)
    
14.             A(i, j) = x
    
15.             For k = x + 1 To x + 4
    
16.                 If k > 9 Then
    
17.                     y = Right(CStr(k), 1)
    
18.                 Else
    
19.                     y = k
    
20.                 End If
    
21.                 A(i, j) = A(i, j) & y
    
22.             Next k
    
23.             x = "": y = ""
    
24.         Next i
    
25.     Next j
    
26.     Range("b18:bj20").NumberFormat = "@"
    
27.     [B12].Resize(9, UBound(A, 2)) = A
    
28. End Sub

复制代码

Book2b.rar (10.84 KB, 下载次数: 19)

2012-1-21 13:37 上传

点击文件名下载附件
这样吗

跳转到最佳答案楼层

wenchduan

看了后有个问题，就是如果是5-9的9时，15-9=6，而再五位是67890还是67891呢？

suye1010

1. =TEXT(LEFT(B12,1),"[<5]"&RIGHT(10-LEFT(B13,1),1)&RIGHT(10-LEFT(B13,1)+1,1)&RIGHT(10-LEFT(B13,1)+2,1)&RIGHT(10-LEFT(B13,1)+3,1)&RIGHT(10-LEFT(B13,1)+4,1))

复制代码

给出一个思路，可以显示23456，其它的自己改改吧

wenchduan

hjuy78 发表于 2012-1-21 13:00
是67890,按顺序算过去要5个数就是

这个用函数和VBA应该都能实现

hjuy78

wenchduan 发表于 2012-1-21 12:48
看了后有个问题，就是如果是5-9的9时，15-9=6，而再五位是67890还是67891呢？

是67890,按顺序算过去要5个数就是

爱疯

1. 
   
2. Sub test()
   
3.     Dim A, i%, j%, k%, x$, y$
   
4.     A = [b12:bj20]
   
5.     For j = 1 To UBound(A, 2)       '遍历列
   
6.         For i = 7 To 9              '遍历18,19,20行
   
7.             Select Case Mid(A(1, j), i - 6, 1)
   
8.             Case 0 To 4
   
9.                 x = 10
   
10.             Case 5 To 9
    
11.                 x = 15
    
12.             End Select
    
13.             x = Right(CStr(x - Mid(A(2, j), i - 6, 1)), 1)
    
14.             A(i, j) = x
    
15.             For k = x + 1 To x + 4
    
16.                 If k > 9 Then
    
17.                     y = Right(CStr(k), 1)
    
18.                 Else
    
19.                     y = k
    
20.                 End If
    
21.                 A(i, j) = A(i, j) & y
    
22.             Next k
    
23.             x = "": y = ""
    
24.         Next i
    
25.     Next j
    
26.     Range("b18:bj20").NumberFormat = "@"
    
27.     [B12].Resize(9, UBound(A, 2)) = A
    
28. End Sub

复制代码

Book2b.rar (10.84 KB, 下载次数: 19)

2012-1-21 13:37 上传

点击文件名下载附件
这样吗

hrpotter

B18=IF(MID(B$12,ROW(A1),1)-4>0,MID("01234567890123",FIND(RIGHT(15-MID(B$13,ROW(A1),1)),"01234567890123"),5),MID("01234567890123",FIND(RIGHT(10-MID(B$13,ROW(A1),1)),"01234567890123"),5))
下拉，右拉 Book2.rar (9.4 KB, 下载次数: 3)

2012-1-21 13:48 上传

点击文件名下载附件

hjuy78

爱疯 发表于 2012-1-21 13:37
这样吗

是谢谢了,遇见你真好,再次感谢

香川群子

hrpotter 发表于 2012-1-21 13:40
B18=IF(MID(B$12,ROW(A1),1)-4>0,MID("01234567890123",FIND(RIGHT(15-MID(B$13,ROW(A1),1)),"012345678901 ...

l楼上好长的数组公式……182字符


看我的，103字符:
=RIGHT(0&SUM(MOD(INT(MID(B$12,ROW(B1),1)/5)*5+10-MID(B$13,ROW(B1),1)+{0,1,2,3,4},10)*10^{4,3,2,1,0}),5)

香川群子

比6楼最佳答案看上去要简洁一些的宏代码：

1. Sub test1()
   
2.     cl = [b12].End(2).Column - 1
   
3.     arr = [b12].Resize(2, cl)
   
4.     brr = [b18].Resize(3, cl)
   
5.    
   
6.     For j = 1 To cl
   
7.         For i = 1 To 3
   
8.             t = IIf(Mid(arr(1, j), i, 1) < 5, 9, 14) - Mid(arr(2, j), i, 1)
   
9.             s = "'"
   
10.             For k = 1 To 5
    
11.                 t = (t + 1) Mod 10
    
12.                 s = s & t
    
13.             Next
    
14.             brr(i, j) = s
    
15.         Next
    
16.     Next
    
17.     [b45].Resize(3, cl) = brr '此处输出位置自己修改。
    
18. End Sub

复制代码