[已解决][求助]由1个号码提取6-11个号码的函数

56899

如题，请哪位老师帮助改一公式。见附件。谢谢！ 由1个号码提取6-11个号码的函数.rar (5.89 KB, 下载次数: 30)

2012-7-14 18:53 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hrpotter

2012-7-14 19:19

在你基础上改的，分成两部分连接

1. =SUBSTITUTE(TEXT(SUM(TEXT(D5+{-5,-4,-3,-2,-1},"[>33]!0;[<0]!0;0;")*10^{8,6,4,2,0}),"00 00 00 00 00"),"00",)&" "& SUBSTITUTE(TEXT(SUM(TEXT(D5+{0,1,2,3,4,5},"[>33]!0;[<0]!0;0;")*10^{10,8,6,4,2,0}),"00 00 00 00 00 00"),"00",)

复制代码

跳转到最佳答案楼层

hrpotter

在你基础上改的，分成两部分连接

1. =SUBSTITUTE(TEXT(SUM(TEXT(D5+{-5,-4,-3,-2,-1},"[>33]!0;[<0]!0;0;")*10^{8,6,4,2,0}),"00 00 00 00 00"),"00",)&" "& SUBSTITUTE(TEXT(SUM(TEXT(D5+{0,1,2,3,4,5},"[>33]!0;[<0]!0;0;")*10^{10,8,6,4,2,0}),"00 00 00 00 00 00"),"00",)

复制代码

56899

hrpotter 发表于 2012-7-14 19:19
在你基础上改的，分成两部分连接

谢谢老师！正合我意！

crz258824165

学习学习                     

tomle

这咋看起来有点像彩票

周义坤

做了个VBA的，方法不太好，不过还贴出来算了！

1. Sub ek_sky()
   
2. Dim arr1, arr2, arr3(1 To 10000, 1 To 6)
   
3. Dim i&, j&, k&
   
4. Dim d As Object
   
5. Set d = CreateObject("scripting.dictionary")
   
6. arr1 = Array(-5, -4, -3, -2, -1, 1, 2, 3, 4, 5)
   
7. arr2 = Range("D5:I12").Value
   
8. For i = 1 To UBound(arr2)
   
9.     For j = 1 To UBound(arr2, 2)
   
10.         For k = 0 To UBound(arr1)
    
11.             If arr2(i, j) + arr1(k) > 0 And arr2(i, j) + arr1(k) < 34 Then
    
12.                 d(Format(arr2(i, j) + arr1(k), "00")) = ""
    
13.             End If
    
14.         Next k
    
15.     arr3(i, j) = Join(d.keys, " ")
    
16. d.RemoveAll
    
17. Next j
    
18. Next i
    
19. Range("K5:P10000").ClearContents
    
20. Range("K5").Resize(UBound(arr2), 6) = arr3
    
21. End Sub
    

复制代码

56899

周义坤 发表于 2012-7-14 20:09
做了个VBA的，方法不太好，不过还贴出来算了！

谢谢啦！不过不会用哟。

qqyyh

      这个研究什么呀!

hvail

学习学习学习学习