UC知道关于Excel宏：从多组重复数据中每组只提取一个
来源：百度知道 编辑：UC知道 时间：2024/06/11 15:46:10
比如有张表格
A1～A10 张三
A11～A16 李四
A17～A35 王五
现想提取“张三 李四 王五”并生成B1～B3的列。要怎么做呢？我需要这段宏命令。谢谢大虾了。（PS：小弟第一次发问，也就只有30分积分了，全给出来）
A1～A10 张三
A11～A16 李四
A17～A35 王五
现想提取“张三 李四 王五”并生成B1～B3的列。要怎么做呢？我需要这段宏命令。谢谢大虾了。（PS：小弟第一次发问，也就只有30分积分了，全给出来）
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
ActiveCell.FormulaR1C1 = "重复"
Range("A1:A36").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Columns("B:B"), Unique:=True
Rows("1:1").Select
Selection.Delete Shift:=xlUp
高，学习了！
是你要宏，其实，这根本就不用宏，用系统自带的筛选功能就可以了。
数据，筛选，高级筛选，将筛选结果复制到其他位置，分别选择筛选区域和复制到的区域，然后勾选不重复记录，确定。就可以了。注意，如果没有表头的话，可能会把第一行当成表头信息。