软件:Excel
版本:365
一开始会将资料筛选的结果复制到新增的工作表中
并且依照循环范围更改工作表名称
For i = 2 To Range("A2").End(xlDown).Row
ActiveSheet.ListObjects("订单").Range.AutoFilter
Field:=3, Criteria1 :=Sheets("筛选区").Range("A" & i)
复制贴上的范围这边就不打上了
Sheets.Add After:=ActiveSheet
Sheets(ActiveSheet.Name).Select
Sheets(ActiveSheet.Name).Name = Sheets("筛选区").Range("A" & i)
这前面都没问题
接下来想从xx工作表中选取某范围的资料贴到刚刚新增的工作表
Sheets("xx").Select
Rows("1:6").Select
Selection.Copy
Sheets(Sheets("筛选区").Range("A" & i)).Select
跑到这段会显示型态不符
请问要怎么改呢?
前面筛选可以用Sheets("筛选区").Range("A" & i)为什么这边就不能?
Next i
研究好久还是不会...