[發問] 2個活頁簿之工作表資料比對以及複製

帖子: 20
主題: 3
精華: 0
積分: 47
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2010
閱讀權限: 10
註冊時間: 2011-7-16
最後登錄: 2012-3-15

2^#

發表於 2011-7-23 12:13 | 顯示全部帖子

本帖最後由 day741025 於 2011-7-23 12:21 編輯

回復 2# GBKEE

執行結果OK，感謝板主幫忙！

另外想要再問的就是，下述這段，如果是要從第3張工作表開始依序執行的話要怎麼設定？
For Each Sh In Wb(1).Sheets '在Wb(1)的工作表集合物件依序裡每一工作表
Set Rng = Wb(2).Sheets(Sh.Name).[B2] '新.xlsx每一工作表的B2開始
目前想到的是： For Each Sh In Wb(1).Worksheets(Array(3))

還有，如果C欄儲存格裡面有「插入註解」的話，可否把註解也放到目的儲存格裡？

謝謝^^

帖子: 20
主題: 3
精華: 0
積分: 47
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2010
閱讀權限: 10
註冊時間: 2011-7-16
最後登錄: 2012-3-15

3^#

發表於 2011-7-24 15:04 | 顯示全部帖子

回復 4# GBKEE

確認程式執行OK…
原本這個程式碼我要用IF跟For Next…但想了好久寫不太出來…板主真的好厲害@@"
感謝板主的鼎力相助！

帖子: 20
主題: 3
精華: 0
積分: 47
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2010
閱讀權限: 10
註冊時間: 2011-7-16
最後登錄: 2012-3-15

4^#

發表於 2011-7-24 21:04 | 顯示全部帖子

本帖最後由 day741025 於 2011-7-24 21:20 編輯

回復 4# GBKEE

板主不好意思，我要問一下這段如果不寫「Rng=""」，不是也可以離開迴圈嗎？那麼為什麼還要加上「Rng=""」？
Loop Until Rng = "" 'Rng = ""-> 離開

剛才試過，如果拿掉「Rng=""」就會出現錯誤，再仔細看語句為Do 處理 Loop Until 條件式…
依照語句理解的意思是，條件式為當Rng為空白的時候，就離開迴圈！
更白話一點就是，當工作表之B2欄位移動到為空白的儲存格，就會離開迴圈，這樣是否正確？

謝謝！

帖子: 20
主題: 3
精華: 0
積分: 47
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2010
閱讀權限: 10
註冊時間: 2011-7-16
最後登錄: 2012-3-15

5^#

發表於 2011-7-24 22:11 | 顯示全部帖子

本帖最後由 day741025 於 2011-7-24 22:14 編輯

回復 7# GBKEE

如果拿掉「Rng=""」就會出現錯誤請問錯誤出現在何處知道嗎?
我的判斷是，因為沒有設定條件的關係！

就好比if 條件式 then
如果沒有輸入條件式，就會出現錯誤！

下面的解說很清楚，大致上懂了，感謝板主的熱心教導！^^

帖子: 20
主題: 3
精華: 0
積分: 47
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2010
閱讀權限: 10
註冊時間: 2011-7-16
最後登錄: 2012-3-15

6^#

發表於 2011-7-24 22:48 | 顯示全部帖子

本帖最後由 day741025 於 2011-7-24 22:51 編輯

回復 4# GBKEE

還有一個問題，最後Next為什麼沒有指定？

一般For Next，會先定義For i = 1 to 123
最後會指定Next i

是因為程式到了Loop Until就停止迴圈了，
所以最後的Next有沒有設定都沒有影響的關係嗎？