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

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

Links booklink

Contact Us: admin [ a t ] ucptt.com