請問如何簡化

eric093

我用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

自己看的懂比較重要。

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

回復 2# stillfish00


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

eric093

回復 3# eric093


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

stillfish00

回復 4# eric093
附檔看看