分組前三名語法

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

11^# 跳轉到 »

發表於 2014-1-16 21:23 | 只看該作者

回復 10# joey0415

版大的文章也常用 .End(xlUp).Offset(1)之類的定位找某一格或關鍵的上一個或下一格，不知道哪有相關的說明會清楚一些

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

　暱稱: joey0415

12^#

發表於 2014-1-17 15:42 | 只看該作者

回復 3# GBKEE

請問超版，陣列中有沒有類似Find(E, LookAT:=xlWhole)，把找到的資料放進另一個新的陣列中呢？

謝謝

For Each E In AR
Set Rng = .Range("B:B").Find(E, LookAT:=xlWhole) '找每一股票的第一個位置
.Range(.Cells(Rng.Row, "A"), .Cells(Rng.Row + 2, "D")).Copy .Cells(.Rows.Count, "F").End(xlUp).Offset(1)

複製代碼

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

13^#

發表於 2014-1-17 15:52 | 只看該作者

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。