返回列表 上一主題 發帖

資料比對與刪除

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
1# 跳轉到 »
發表於 2012-11-3 21:56 | 顯示全部帖子
回復 1# modelcrazyer
回復 2# kimbal
  1. If ld.exists(.Range("A1").Offset(i - 1, 0).Value) Then
複製代碼
應改正為
  1. If Not ld.exists(.Range("A1").Offset(i - 1, 0).Value) Then
複製代碼
答案才會如 #1 modelcrazyer 樓主所述。

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
2#
發表於 2012-11-4 20:18 | 顯示全部帖子
回復 4# GBKEE
這種單刀直入的撰寫方式，也比較直接了當，
這亦是我平時程式的撰寫風格，謝謝您！

TOP

        靜思自在 : 【時間無法遮擋】怕時間消逝，花了許多心血，想盡各式方法要遮擋時間，結果是：浪費了更多時間，且一無所成！
返回列表 上一主題