求一个筛选的代码

LNS17 · 发表于 2017-12-17 14:06

筛选重复与不重复的列和扩展列，顺序筛选，筛选的结果是数值格式，详情请看附件：

求筛选和扩展代码A.rar (6.81 KB, 下载次数: 5)

jiangxiaoyun · 发表于 2017-12-17 14:23

powerquery删除重复项

LNS17 · 发表于 2017-12-17 14:26

大神，我是03版的啊

duquancai · 发表于 2017-12-17 14:30

LNS17 发表于 2017-12-17 14:26
大神，我是03版的啊

重复发帖？？？前面不是解决了吗？

LNS17 · 发表于 2017-12-17 14:33

duquancai 发表于 2017-12-17 14:30
重复发帖？？？前面不是解决了吗？

大神，还有一个顺序筛选重复和筛选后的数值格式的问题，求大神一并解决

duquancai · 发表于 2017-12-17 14:44

LNS17 发表于 2017-12-17 14:33
大神，还有一个顺序筛选重复和筛选后的数值格式的问题，求大神一并解决

Sub shishi()
Dim arr, d As Object, brr()
arr = [g1].CurrentRegion
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
Set d = CreateObject("Scripting.Dictionary")
For i = 2 To UBound(arr)
      If Not d.exists(arr(i, 1)) Then
         n = n + 1: d(arr(i, 1)) = ""
         For j = 1 To UBound(arr, 2)
            brr(n, j) = arr(i, j)
         Next
      End If
Next
Range("l2").Resize(n, UBound(arr, 2)) = brr
End Sub

LNS17 · 发表于 2017-12-17 14:49

duquancai 发表于 2017-12-17 14:44
Sub shishi()
Dim arr, d As Object, brr()
arr = [g1].CurrentRegion

谢谢大神，示例中能通过。非常感谢，明天评分（今天没分了）

wt577 · 发表于 2017-12-17 15:04

LNS17 发表于 2017-12-17 14:26
大神，我是03版的啊

换换版本
16好多功能，以前像合并表的内容
都可以power query 来做
利用power pivot 把数据加载到数据模型里面再与关联表搭建好关系
结合DAX函数写不同的度量值，可以做很多不同口径的分析
再现在有powerBI 桌面版都是很好的分析工具

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

[求助] 求一个筛选的代码

评分

最新热点 /1