请教老师数字显示问题，谢谢！！

函数新手

论坛找了很久，没有找到太符合的，所以只有请教老师了！具体在附件中，谢谢！！ Book1.rar (1.93 KB, 下载次数: 17)

2017-7-9 19:16 上传

点击文件名下载附件

yeminqiang

vba吧.........

函数新手

谢谢yeminqiang老师，不过我还是偏向函数解决此问题，我有一个方法不过就是太麻烦了，所以想求一个比较简单点的方法解决这个问题。如果附件中的数据方式用函数不好解决的话，把A1到L1的所有数据合并到一个单元格后再求值也可以，只要能得到最后想要的结果就行！谢谢！！

wangjguo44

函数新手 发表于 2017-7-9 19:47
谢谢yeminqiang老师，不过我还是偏向函数解决此问题，我有一个方法不过就是太麻烦了，所以想求一个比较简单 ...

是不是这样？（数据区单元格里的三个数字都没有重复？）

1. =IF(COUNT(FIND(0,A2:L2))=3,0,"")&SUBSTITUTE(SUM((MMULT(N(ISNUMBER(FIND(ROW($1:$9),A2:L2))),ROW($1:$12)^0)=3)*ROW($1:$9)*10^(9-ROW($1:$9))),0,)

复制代码

EH(Wjg)c.rar (4.2 KB, 下载次数: 6)

2017-7-9 20:39 上传

点击文件名下载附件

hopeson2010

数组公式下拉:

1. =IF(COUNTIF(A1:L1,"*0*")=3,0,)&SUM(SMALL((COUNTIF(A1:L1,"*"&ROW($1:$9)&"*")=3)*ROW($1:$9),ROW($1:$9))*10^(9-ROW($1:$9)))

复制代码

七夕、

1. =IF(COUNT(FIND(0,A1:L1))=3,0,"")&SUBSTITUTE(SUM((COUNTIF(A1:L1,"*"&ROW($1:$9)&"*")=3)*ROW($1:$9)*10^ROW($1:$9)),0,)

复制代码

hopeson2010

VBA方法:

1. Sub ek_sky()
   
2.    Dim ar1 As Variant, ar2(0 To 9) As Variant, ar3 As Variant
   
3.    Dim i As Integer, j As Byte, k As Byte
   
4.      [m:m].ClearContents
   
5.       ar1 = Range("A1").CurrentRegion
   
6.       ReDim ar3(1 To UBound(ar1), 1 To 1)
   
7.          For i = 1 To UBound(ar1)
   
8.              For j = 1 To UBound(ar1, 2)
   
9.                 For k = 1 To Len(ar1(i, j))
   
10.                     ar2(Mid(ar1(i, j), k, 1)) = ar2(Mid(ar1(i, j), k, 1)) + 1
    
11.                 Next k
    
12.              Next j
    
13.              For k = 0 To 9
    
14.                If ar2(k) = 3 Then
    
15.                 ar3(i, 1) = ar3(i, 1) & k
    
16.                End If
    
17.              Next k
    
18.             Erase ar2
    
19.         Next i
    
20. Range("m:m").NumberFormatLocal = "@"
    
21. Range("m1").Resize(UBound(ar1)) = ar3
    
22. End Sub

复制代码

函数新手

不好意思，由于工作关系今天才有时间上论坛里来，问题圆满解决，在此谢谢所有帮忙的老师，辛苦了，谢谢！！