求筛选重复和不重复的代码

sanfuhai · 发表于 2020-7-11 07:51

本帖最后由 sanfuhai 于 2020-7-13 07:14 编辑

详情请看附件：

求重复和不重复行的代码.rar (13.79 KB, 下载次数: 17)

cui26896 · 发表于 2020-7-11 07:51

请参考附件

求重复和不重复行的代码.zip (19.75 KB, 下载次数: 12)

sanfuhai · 发表于 2020-7-13 07:18

求助附件已更新，将需求说的更清楚了些，求大神的帮助

cui26896 · 发表于 2020-7-22 14:15

sanfuhai 发表于 2020-7-13 07:18
求助附件已更新，将需求说的更清楚了些，求大神的帮助

弄不明白你新上传的附件有什么新的要求，和原来的不是一样吗？是不是要在你原表处放置结果？
只要这样就行了，
With Sheets(1)
.Activate
.Range("b2:g" & Cells(Rows.Count, "g").End(xlUp).Row).ClearContents
.Range("b2:g" & k) = brr2
End With

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

求筛选重复和不重复的代码

最佳答案

评分