- 帖子
- 7
- 主題
- 1
- 精華
- 0
- 積分
- 10
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- Office 2007
- 閱讀權限
- 10
- 註冊時間
- 2012-3-3
- 最後登錄
- 2018-3-29
|
Dear 大大,
有請點問題想請教各位.
(1)
B = Sheets("B資料庫").Range([A2], [A65536].End(xlUp))
For Each A In B
if A = 1101 Then
............(省略)
End If
Next A
程式會比對A2 ~ A65536內 所有的儲存值 , 不過有沒有什麼方式可以讓當程式一比對到if條件成立時 , 就不用繼續比對後面的儲存格了?
(2)
以附件範例為例.
在sheet1[c1]輸入股號 , sheet1[AE2]&[AC2]輸入搜尋年分範圍後 , 然後去比對sheet2 , 再將比對成功的資料複製到sheet1[ACx : AIx].
以附件為例 , shee2[a12]是台泥一月份 , 雖然我們已知二月份台泥是[a12].offset(0, 10) , 不過難免會有新股號加入 , 所以搜尋下個月份時還重頭開始搜尋起 , 不過至少每個月份的資料都是隔10格
小弟以For Each指令可以做到類似的功能 , 不過只能成功複製第一個月份 , 而且速度很慢.
想請教各位先進有沒有其它指令及什麼方式可以做到這樣的功能.
 財報_1.zip (732.12 KB)
|
|
發表於 2012-3-9 18:32
| 
