作者bank89902595 (阿虎几)
看板Office
标题[问题] VBA 复制贴上到指定工作表 For回圈
时间Tue Oct 26 01:38:02 2021
软体: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
研究好久还是不会...
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 115.165.192.143 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1635183484.A.BEA.html
※ 编辑: bank89902595 (115.165.192.143 台湾), 10/26/2021 01:40:29
1F:→ soyoso: 改为range(...).value,测试可行 10/26 11:56
看来是要取值? 真是太感谢你了~居然还用个gif
※ 编辑: bank89902595 (114.44.176.178 台湾), 10/27/2021 09:15:08