请教各位大神如何用VBA筛选出数值

思维百宝箱 · 发表于 2023-5-26 09:06

本帖最后由思维百宝箱于 2023-5-26 16:35 编辑

如图所示，有1～11数字，第3、4、5行随机出现这些数字，现在需要实现的是，第6行从C6单元格开始显示，上面3行都出现的数字，（如图所示的是1、3、7和8），第7行是显示出现2次的数字，用VBA能实现吗？谢谢大神了！

全党 · 发表于 2023-5-26 09:30

Sub shishi()

Set dic = CreateObject("scripting.dictionary")
arr = Range("c3:j5")
For i = 1 To UBound(arr)
For j = 1 To UBound(arr, 2)
If arr(i, j) <> "" Then
      If Not dic.exists(arr(i, j)) Then
      dic(arr(i, j)) = 1
      Else
      dic(arr(i, j)) = dic(arr(i, j)) + 1
      End If
End If
Next
Next
For Each k In dic.keys
If dic(k) = 3 Then Cells(6, 2) = Cells(6, 2) & ";" & k
If dic(k) = 2 Then Cells(7, 2) = Cells(7, 2) & ";" & k
If dic(k) = 1 Then Cells(8, 2) = Cells(8, 2) & ";" & k
Next
End Sub

不知道为什么 · 发表于 2023-5-26 09:59

供参考。。。。。。。。。。。

无敌小猪猪 · 发表于 2023-5-26 10:04

2233.rar (15.15 KB, 下载次数: 2)

sxbjzjf110 · 发表于 2023-5-26 10:25

参与一下。。。。。

sxbjzjf110 · 发表于 2023-5-26 10:28

第一次没有看清楚，这个完整一点。

ovxyz · 发表于 2023-5-26 11:30

你举例的那个次数不对把。

笨鸟飞不高 · 发表于 2023-5-26 12:33

2233.zip (13.2 KB, 下载次数: 5)

猜一个！

思维百宝箱 · 发表于 2023-5-26 16:35

全党发表于 2023-5-26 09:30
Sub shishi()

Set dic = CreateObject("scripting.dictionary")

谢谢你的帮忙，太强大了

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

[已解决] 请教各位大神如何用VBA筛选出数值

评分

评分

评分