如何把3个不同数据的列出来！

wangmeiwang · 发表于 2018-11-5 21:02

请高手支招！我想了几天了，还是不会弄出来！
如图：

刀羊 · 发表于 2018-11-5 23:01

如果条件允许的话，加辅助列，

也可以考虑用高级筛选，不过条件还是要用辅助单元格。

小石头936 · 发表于 2018-11-5 23:36

VBA弄的，虽然可行，但感觉有点不划算，老师大神们勿笑话！

wangmeiwang · 发表于 2018-11-6 09:48

小石头936 发表于 2018-11-5 23:36
VBA弄的，虽然可行，但感觉有点不划算，老师大神们勿笑话！

我下载下来怎么看不懂啊！！是不是隐藏代码了

wangmeiwang · 发表于 2018-11-6 09:51

刀羊发表于 2018-11-5 23:01
如果条件允许的话，加辅助列，

也可以考虑用高级筛选，不过条件还是要用辅助单元格。

你知道怎么弄吗？可以用辅助单元啊

小石头936 · 发表于 2018-11-6 10:45

wangmeiwang 发表于 2018-11-6 09:48
我下载下来怎么看不懂啊！！是不是隐藏代码了

在下载的表里，把B列删掉后，点击按钮，看是不是你需要的效果。

Sub 按钮1_Click()
Dim i, j, n As Integer
For i = 1 To 5
For j = 1 To Len(Cells(i, 1))
If Mid(Cells(i, 1), j, 1) = 1 Or Mid(Cells(i, 1), j, 1) = 2 Or Mid(Cells(i, 1), j, 1) = 5 Then
n = n + 1
End If
Next
If n >= 3 Then
Cells(i, 2) = Cells(i, 1)
End If
n = 0
Next
End Sub

复制代码

小石头936 · 发表于 2018-11-6 10:53

wangmeiwang 发表于 2018-11-6 09:48
我下载下来怎么看不懂啊！！是不是隐藏代码了

这里只是简单的做了实现的方法而已，如果是你需要的模式，且表格可以用宏的话，右键点击按钮，选择指定宏，选择编辑，可以看到并修改代码，实现具体功能。

小石头936 · 发表于 2018-11-6 11:21

=IF(ISERROR(FIND(1,A1)+FIND(2,A1)+FIND(5,A1)),"",IF((FIND(1,A1)+FIND(2,A1)+FIND(5,A1))>=3,A1,""))
在B2输入这个公式，下拉。

wangmeiwang · 发表于 2018-11-6 17:30

小石头936 发表于 2018-11-6 11:21
=IF(ISERROR(FIND(1,A1)+FIND(2,A1)+FIND(5,A1)),"",IF((FIND(1,A1)+FIND(2,A1)+FIND(5,A1))>=3,A1,""))
...

不错你这个函数解决了问题了！！谢谢大神了

小石头936 · 发表于 2018-11-6 22:55

wangmeiwang 发表于 2018-11-6 17:30
不错你这个函数解决了问题了！！谢谢大神了

不好意思，其实上面的公式有毛病，正确公式应该是
=IF(ISERROR(FIND(1,A1)+FIND(2,A1)+FIND(5,A1)),"",A1)

		自动登录	找回密码
密码			免费注册