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

[xxyyzzxyz627 (MrWUYUAN)]

軟體: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
→ soyoso: h=....下方加上range("f" & h+1).select 試試
→ soyoso: range.copy (destination)可簡潔些
→ soyoso: 或是帶值的話也可用儲存格=儲存格的方式
→ soyoso: https://imgur.com/tdlr6iH
→ soyoso: 抱歉上面應改為https://imgur.com/z8t6WfI
→ soyoso: copy則為 https://imgur.com/wO4rzw4
→ xxyyzzxyz627: 多謝大大 努力修改 第一次用VBA有點笨多謝大大
→ soyoso: 另外range("f3").end(xldown)如下方無有資料儲存格的話，
→ soyoso: 則會跳到最下方儲存格f1048576，這時讀入的列號再加1時，
→ soyoso: 就會錯誤；因此可用range.end(xlup)的方式試試
→ xxyyzzxyz627: 大大你好我有寄信給你麻煩你幫忙了謝謝!!
→ soyoso: 信件解決方式為上述回文，可用range.end(xlup)來排除