[算表] 多工作表筛选后复制到一个工作表vba

楼主: ptguitar (佩蒂吉他)   2019-09-17 15:04:14
软件:excel
版本:2007以上
试写了一个把很多工作表写到一个整理工作表vba
Sub copyto()
Dim mytable As Range, targetrange As Range
For i = 1 To Sheets.Count
If Sheets(i).Name <> "整理" Then Sheets(i).Select
Set targetrange = Worksheets("整理").Range("A" &
Range("A65536").End(xlUp).Row)
Set mytable = Sheets(i).Range("A2:E" & Range("A65536").End(xlUp).Row)
With mytable
.AutoFilter Field:=5, Criteria1:=">=1070801", Operator:=xlAnd,
Criteria2:="<=1080831"
.SpecialCells(xlCellTypeVisible).Copy
targetrange.PasteSpecial xlPasteValues
.AutoFilter
End With
Next i
End Sub
但是执行结果怪怪的
档案如下
http://0rz.tw/D9JsF
不知道我逻辑问题在那边 感谢
作者: soyoso (我是耀宗)   2019-09-17 15:17:00
1.因为作用工作表不在"整理",而要取得整理最后一笔有值的储存格的话,变量targetrange的range.end.row方面再加上worksheets(...).range(..).end(..).row2.if判断方面如要工作表名称"整理"时,就不再执行下方至end with的动作的话,a)if sheets.name="整理" thenexit for,b)if sheets.name<>"整理" then ...end if来包从sheets.select到end with的动作3.取得最后一笔有值的列号需加1,不然再贴上时会覆蓋已存在的资料
楼主: ptguitar (佩蒂吉他)   2019-09-17 16:42:00
果然可以了!感谢S大指点跟教学~

Links booklink

Contact Us: admin [ a t ] ucptt.com