標題: 請問如何簡化 [打印本頁]

---

作者: eric093    時間: 2013-8-5 12:40     標題: 請問如何簡化

我用if then判斷式後，若sheet1符合的資料，指定欄特定列回寫到sheet2, 如下，但這樣看來好不專業，有簡化的方式嗎
               if     then   
                 sheets(2).Cells(K, 1) = sheets(1).Cells(i, 1).Value
                   sheets(2).Cells(K, 2) = sheets(1).Cells(i, 2).Value
                   sheets(2).Cells(K, 3) = sheets(1).Cells(i, 7).Value
                   sheets(2).Cells(K, 4) = sheets(1).Cells(i, j).Value
                    .............................
.

---

作者: stillfish00    時間: 2013-8-5 13:46

本帖最後由 stillfish00 於 2013-8-5 13:48 編輯

自己看的懂比較重要。

1. With Sheets(1)
   
2.     Sheets(2).Cells(k, 1).Resize(, 4).Value = Array(.Cells(i, 1).Value, _
   
3.                                                     .Cells(i, 2).Value, _
   
4.                                                     .Cells(i, 7).Value, _
   
5.                                                     .Cells(i, j).Value)
   
6. End With

複製代碼

回復 1# eric093

---

作者: eric093    時間: 2013-8-5 14:05

回復 2# stillfish00


    謝謝！雖然我現在看不懂，我會再研究一下的！再上網查相關的用法！
   感恩！

---

作者: eric093    時間: 2013-8-5 14:53

回復 3# eric093


    抱歉，我剛剛用了這個方式，但怎麼都說我編譯錯誤，不然，就沒有跑出資料耶！

---

作者: stillfish00    時間: 2013-8-5 15:13

回復 4# eric093
附檔看看

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)