呵呵
在数据里面打开筛选,点击高级筛选,再点击
将筛选的结果复制到其他区域,列表区域点击表头按Ctrl和Shift键,条件区域点击表头,复制到点击你想要复制的区域再点击选择不重复的记录。确定就行了,还是不清楚的话给个视频给你
希望能对你有所帮助。。。
http://www.56.com/w70/play_album-aid-7544678_vid-MzkwNzg3MDY.html
可以用代码实现,例如筛选到C,D
列,代码如下
Sub
筛选()
Dim
a
As
String
Dim
b
As
String
Dim
c
As
String
Dim
I
As
Integer
Dim
m
As
String
Dim
n
As
String
Dim
J
As
String
Dim
K
As
String
I
=
1
For
I
=
1
To
3000
m
=
"A"
&
I
n
=
"B"
&
I
J
=
"C"
&
I
K
=
"A"
&
I
&
":B"
&
I
If
Val(Range(m))
<>
Val(Range(n))
Then
Range(K).Select
Selection.Copy
Range(J).Select
ActiveSheet.Paste
End
If
Next
I
End
Sub
结果如下
第一列
第二列
1
1
1
1
1
1
2
2
2
2
2
2
3
3
3
3
3
3
4
4
4
4
4
4
5
6
5
6
5
6
5
6
5
6
5
6