PTT數位生活區 / Office

[算表] 網路抓取資料貼在不同工作表的問題

看板Office作者 (MrWUYUAN)時間9年前 (2016/06/18 12:15), 編輯推噓0(0推 0噓 12→)
留言12則, 2人參與, 最新討論串1/1
軟體:Excel 版本:2013 不好意思麻煩大家 第一次用VBA 用了很久用不出來 麻煩大家幫忙 我在網路上抓取資料後故地的欄位存到"期貨OI" 的F攔 我希望每筆資料都可以往下儲存 不會取代應該怎麼寫呢 還是有更方便的寫法@@ Private Sub CommandButton2_Click() Sheets("OI網路匯入").Select a = Range("K12").Select Selection.Copy Sheets("期貨OI").Select h = Range("F3").End(xlDown).Row ActiveSheet.Paste End Sub 謝謝大大幫忙 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 122.116.165.220 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1466223306.A.D87.html
→
06/18 12:21, , 1F
h=....下方加上range("f" & h+1).select 試試
06/18 12:21, 1F
→
06/18 12:25, , 2F
range.copy (destination)可簡潔些
06/18 12:25, 2F
→
06/18 12:28, , 3F
或是帶值的話也可用儲存格=儲存格的方式
06/18 12:28, 3F
→
06/18 12:29, , 4F
06/18 12:29, 4F
→
06/18 12:31, , 5F
抱歉上面應改為https://imgur.com/z8t6WfI
06/18 12:31, 5F
→
06/18 12:32, , 6F
06/18 12:32, 6F
→
06/18 12:36, , 7F
多謝大大 努力修改 第一次用VBA有點笨多謝大大
06/18 12:36, 7F
→
06/18 12:36, , 8F
另外range("f3").end(xldown)如下方無有資料儲存格的話，
06/18 12:36, 8F
→
06/18 12:38, , 9F
則會跳到最下方儲存格f1048576，這時讀入的列號再加1時，
06/18 12:38, 9F
→
06/18 12:39, , 10F
就會錯誤；因此可用range.end(xlup)的方式試試
06/18 12:39, 10F
→
06/18 12:48, , 11F
大大你好我有寄信給你麻煩你幫忙了謝謝!!
06/18 12:48, 11F
→
06/18 12:50, , 12F
信件解決方式為上述回文，可用range.end(xlup)來排除
06/18 12:50, 12F
‣ 更多 xxyyzzxyz627 的文章
文章代碼(AID): #1NPChAs7 (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 xxyyzzxyz627 的文章
文章代碼(AID): #1NPChAs7 (Office)