|
本帖最后由 ken1991518 于 2017-9-21 15:07 编辑
类似下面代码能用循环语句套用吗?不一样的只是红色字体部分,假设有100个人,如果避免把这段过程复制100次会出现vba错误提示过程太过大?麻烦写下出来,自己小白一个不太懂啊,谢了!
代码:
Windows("123.xlsm").Activate
Selection.AutoFilter
ActiveSheet.Range("$A$1:$K$1000").AutoFilter Field:=11, Criteria1:="张三"
Range("J1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Selection.Copy
Windows("数据-张三.xlsx").Activate
Range("A1").Select
ActiveSheet.Paste
Windows("123.xlsm").Activate
Selection.AutoFilter
ActiveSheet.Range("$A$1:$K$1000").AutoFilter Field:=11, Criteria1:="李四"
Range("J1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Selection.Copy
Windows("数据-李四.xlsx").Activate
Range("A1").Select
ActiveSheet.Paste
Windows("123.xlsm").Activate
Selection.AutoFilter
ActiveSheet.Range("$A$1:$K$1000").AutoFilter Field:=11, Criteria1:="王五"
Range("J1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Selection.Copy
Windows("数据-王五.xlsx").Activate
Range("A1").Select
ActiveSheet.Paste
|
|