返回列表 上一主題 發帖

[發問] 將開啟後檔案的指定內容依序複製貼上。

回復 10# samwang
Sorry~原來是我在貼8#的程式碼時,就疏忽遺漏了

所有需要人工操作的部分~都以程式碼完成替代並測試成功
萬分感激您的耐心指導和熱心幫忙~受惠良多~感恩

TOP

本帖最後由 ziv976688 於 2021-8-31 10:06 編輯

回復 10# samwang
請修正程式碼
TEST_0831.rar (228.8 KB)
不好意思~將http://forum.twbts.com/viewthrea ... a=pageD1&page=2 10樓修正後的程式碼,
貼上本題主檔的程式碼列55套用,會在列62  For j = 2 To 8: n = n + 1: Brr(n) = Arr(i, j): Next 中斷(陣列索引超出範圍)。
不知要如何修正?才能讓Sheet1!C : K產生正確答案。
以上 懇請賜正。謝謝您

TOP

回復 12# ziv976688


貼上本題主檔的程式碼列55套用,會在列62  For j = 2 To 8: n = n + 1: Brr(n) = Arr(i, j): Next 中斷(陣列索引超出範圍)。

>> 因為 n 前面程式碼已有使用過且有數值,所以將n改m 即可,For j = 2 To 8: m = m + 1: Brr(m) = Arr(i, j): Next ,謝謝  

TOP

回復 13# samwang
samwang大大 :
OK了!
謝謝您不厭其煩的指導和幫忙~感恩

TOP

        靜思自在 : 道德是提昇自我的明燈,不該是呵斥別人的鞭子。
返回列表 上一主題