|
哪位大神帮看一下,弄了半天没调试出来
想从表3-表6的数据的G列用“A公司”筛选后复制到后面建立的表里并删除复制的数据,表3-表6保留“A公司”以外的数据。
代码付下:
'目前工作簿的数量赋给ss
ss = Sheets.Count
'建立属于公司的表
For j = 3 To Sheets.Count
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = ("公司" & Sheets(j).Name)
Next
'往属于公司表里复制数据,并在循环的(3-6)表里的结果删除
For n = 3 To ss
iirow = Sheets(n).Range("a65536").End(xlUp).Row
For i = ss + 1 To Sheets.Count
Sheets(n).Range("a1:g" & iirow).AutoFilter Field:=7, Criteria1:="A公司"
Sheets(n).Range("a1:g" & iirow).Copy Sheets(i).Range("a1")
'Sheets(n).Range("a2:g" & iirow).Delete Shift:=xlUp
Sheets(n).Range("a1:g" & irow).AutoFilter '取消筛选
Next
Next
|
|