A列满足条件的记录相同的有很多,如何在另1个工作表输入A列的条件后,把所有A列与所输入条件相符的记录全部列示在新的工作表上
Sub 查询()
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWindow.SmallScroll Down:=65536
Selection.ClearContents
Range("J1").Select
Selection.Copy
Sheets("价格表").Select
ActiveWindow.SmallScroll Down:=-12
Selection.AutoFilter Field:=1, Criteria1:="J1", Operator:=xlAnd
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("查询").Select
Range("A1").Select
ActiveSheet.Paste
Range("I4").Select
End Sub
我录的宏,我把Criteria1:="J1",里的J1改成实际的条件可以出来,但是J1我不确认会是什么,这里的错误在哪里
2ãçéæ¡ä»¶åï¼å¦çéAåå
å«âå京âç
3ãç¹ âå
å«...âï¼å¨å
å«é项éå¡«åâå京â
4ãçéç»æ为ï¼
5ãéä¸å·²çéçåºåï¼ç¹âæ¥æ¾åéæ©...â-âå®ä½æ¡ä»¶...â
5ãå®ä½æ¡ä»¶éâå¯è§åå
â
6ãå âå¤å¶â
7ãå°éè¦çå°æ¹ï¼å¦Sheet2ç²è´´å³å¯