→ soyoso: 改為range(...).value，測試可行 10/26 11:56
看來是要取值? 真是太感謝你了~居然還用個gif
※ 編輯: bank89902595 (114.44.176.178 臺灣), 10/27/2021 09:15:08
軟體: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://www.ptt.cc/bbs/Office/M.1635183484.A.BEA.html
※ 編輯: bank89902595 (115.165.192.143 臺灣), 10/26/2021 01:40:29