返回列表 上一主題 發帖

請問如何簡化

eric093

帖子
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
                    .............................
.
收藏 分享

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 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

TOP

eric093

帖子
77 
主題
30 
精華
0 
積分
110 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2013-7-14 
最後登錄
2018-10-3 
3#
發表於 2013-8-5 14:05 | 只看該作者
回復 2# stillfish00


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

TOP

eric093

帖子
77 
主題
30 
精華
0 
積分
110 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2013-7-14 
最後登錄
2018-10-3 
4#
發表於 2013-8-5 14:53 | 只看該作者
回復 3# eric093


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

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
5#
發表於 2013-8-5 15:13 | 只看該作者
回復 4# eric093
附檔看看

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題