[問題] VBA回傳工作表數值(迴圈)

看板Office作者youn0910 (もらひ水)時間15年前 (2011/05/18 18:09)推噓1(1推 0噓 3→)

留言4則, 3人參與討論串1/1

(若是和其他不同軟體互動之問題請記得一併填寫) 軟體: Excel 版本: 2003 我66個工作，所要抓取的欄與列都固定 For ............. 中間省略 Cells(4, 3) = Sheets("1").Cells(13, 5).Value Cells(4, 4) = Sheets("1").Cells(13, 6).Value Cells(5, 3) = Sheets("1").Cells(14, 5).Value Cells(5, 4) = Sheets("1").Cells(14, 6).Value Cells(6, 3) = Sheets("1").Cells(15, 5).Value Cells(6, 4) = Sheets("1").Cells(15, 6).Value Cells(7, 3) = Sheets("1").Cells(16, 5).Value Cells(7, 4) = Sheets("1").Cells(16, 6).Value 現在我的工作表名稱是 1 小弟寫了二種寫法 For k = 1 to 65 Cells(4, 3) = Sheets("1+k").Cells(13, 5).Value Cells(4, 4) = Sheets("1+k").Cells(13, 6).Value Cells(5, 3) = Sheets("1+k").Cells(14, 5).Value Cells(5, 4) = Sheets("1+k").Cells(14, 6).Value Cells(6, 3) = Sheets("1+k").Cells(15, 5).Value Cells(6, 4) = Sheets("1+k").Cells(15, 6).Value Cells(7, 3) = Sheets("1+k").Cells(16, 5).Value Cells(7, 4) = Sheets("1+k").Cells(16, 6).Value next K 第二種 For k = 1 to 66 Cells(4, 3) = Sheets("K").Cells(13, 5).Value Cells(4, 4) = Sheets("K").Cells(13, 6).Value Cells(5, 3) = Sheets("K").Cells(14, 5).Value Cells(5, 4) = Sheets("K").Cells(14, 6).Value Cells(6, 3) = Sheets("K").Cells(15, 5).Value Cells(6, 4) = Sheets("K").Cells(15, 6).Value Cells(7, 3) = Sheets("K").Cells(16, 5).Value Cells(7, 4) = Sheets("K").Cells(16, 6).Value next K 以上都行不通，想請問有什麼辦法可以更改感恩.... -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 114.137.147.50