第二個問題，跟屬性有關，只能設為False，無法設為True(看屬性中的註解)https://learn.microsoft.com/zh-tw/office/...
如果只是貼資料起始點的不同,用相同的邏輯改一改就可以了r1 = Cells(Rows.Count, "A").End(xlUp).Row '...
你試試看這個B1儲存格=INDEX(A:A,LARGE(IF(A:A<>"",ROW(1:16384)),3))C1儲存格=IN...
https://www.ptt.cc/bbs/Office/M.1405396271.A.43D.html可參考第一個，用尋找所有來源工作表名稱+取代成正確工作...
可以參考這篇：http://kimbalko-chi.blogspot.com/2013/01/excel.html
Misty0723的鐵人檔案