返回列表下一主題上一主題發帖

請問如何簡化

eric093

中學生 Rank: 2

帖子: 77
主題: 30
精華: 0
積分: 110
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2013-7-14
最後登錄: 2018-10-3

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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
                  .............................
.