软件: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
谢谢大大帮忙

h=....下方加上range("f" & h+1).select 试试range.copy (destination)可简洁些或是带值的话也可用储存格=储存格的方式https://imgur.com/tdlr6iH抱歉上面应改为https://imgur.com/z8t6WfIcopy则为 https://imgur.com/wO4rzw4

多谢大大 努力修改 第一次用VBA有点笨多谢大大

另外range("f3").end(xldown)如下方无有资料储存格的话，则会跳到最下方储存格f1048576，这时读入的列号再加1时，就会错误；因此可用range.end(xlup)的方式试试

大大你好我有寄信给你麻烦你帮忙了谢谢!!

信件解决方式为上述回文，可用range.end(xlup)来排除