PTT數位生活區 / Office

[算表] vba range物件寫入值問題

看板Office作者 (深呼吸~)時間9年前 (2016/11/21 10:27), 編輯推噓0(0推 0噓 22→)
留言22則, 2人參與, 最新討論串1/1
軟體: excel 版本:2016 各位大大好 我想要將sheets(1)的資料移至sheets(2) 我是以range物件的方式來進行 但最後出現錯誤，不知道問題為何? 請各位版大解惑，謝謝。 檔案連結如下： https://drive.google.com/file/d/0By1rG_0drdV2R1Q1WV9lQkd1clJtbVNhNUJnX0hFdkhaN UVF/view?usp=drivesdk -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 223.139.171.30 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1479695262.A.A53.html
→
11/21 10:42, , 1F
range.select的部分要於該工作表內
11/21 10:42, 1F
→
11/21 10:47, , 2F
1.宣告方面Ar,Rng as Range這不是表示二個都宣告為range
11/21 10:47, 2F
→
11/21 10:48, , 3F
2.工作表1的資料要偏移成為工作表2的話，並不是range.
11/21 10:48, 3F
→
11/21 10:49, , 4F
resize內偏移，而是以range.offset
11/21 10:49, 4F
→
11/21 10:54, , 5F
Rng.Value = Ar的寫法無法輸出結果，應為Rng = Ar.Value
11/21 10:54, 5F
→
11/21 10:58, , 6F
如執行巨集所在的工作表如於sheets(1)的話，Ar帶入範圍是
11/21 10:58, 6F
→
11/21 11:00, , 7F
不產生錯誤，如是在其他工作表的話要將sheets(1)放至cells
11/21 11:00, 7F
→
11/21 11:03, , 8F
前面，或是先worksheet.select於sheets(1)
11/21 11:03, 8F
→
11/21 11:05, , 9F
也可worksheet.activate
11/21 11:05, 9F
→
11/21 17:47, , 10F
原本的問題解決了，謝謝你
11/21 17:47, 10F
→
11/21 17:47, , 11F
不過現在如果要貼到sheets(2)的位置是動態時
11/21 17:47, 11F
→
11/21 17:48, , 12F
我是用a&Range("A1000").End(xlUp).Row+1來判斷
11/21 17:48, 12F
→
11/21 17:48, , 13F
但是失敗了，不知有無解法?
11/21 17:48, 13F
→
11/21 17:48, , 14F
我的檔案如下
11/21 17:48, 14F
→
11/21 17:49, , 16F
lFtVlUySnFiQzZYMnZWNTRKUTlsNmow/view?usp=drivesdk
11/21 17:49, 16F
→
11/21 17:50, , 17F
以上兩行要合在一起看，謝謝!
11/21 17:50, 17F
→
11/21 17:56, , 18F
[a1]的寫法，無法以字串合併方式，可用range("a" &
11/21 17:56, 18F
→
11/21 17:57, , 19F
range.end().row)或cells(range.end().row,1)，偏移上再調
11/21 17:57, 19F
→
11/21 17:57, , 20F
整
11/21 17:57, 20F
→
11/21 17:58, , 21F
亦或於range.end()取得儲存格後，再offset偏移
11/21 17:58, 21F
→
11/22 08:03, , 22F
已測試成功，謝謝!
11/22 08:03, 22F
‣ 更多 nazomegami 的文章
文章代碼(AID): #1OCbkUfJ (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 nazomegami 的文章
文章代碼(AID): #1OCbkUfJ (Office)