我对VB一窍不空,请帮忙改几个代码,谢谢

rainbowli

<p>日前代码是在同一张表是提取不重复的值,</p><p><font size="5"><font color="#f70968">我想改为:在sheet2中A列提取sheet1中A列的值,且不重复</font>.</font></p><p>Sub 高级筛选()<br/>'<br/>' 高级筛选 Macro<br/>'</p><p>'<br/>&nbsp;&nbsp;&nbsp; Columns("D:D").Select<br/>&nbsp;&nbsp;&nbsp; Selection.Clear<br/>&nbsp;&nbsp;&nbsp; Range("D1").Select<br/>&nbsp;&nbsp;&nbsp; Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "H1:H2"), CopyToRange:=Range("D1"), Unique:=True<br/>End Sub<br/></p><p></p>

[此贴子已经被作者于2006-6-23 17:14:01编辑过]

徒然客

如果要用高级筛选的话可以对放在另外一张表中的条件区域进行命名.