返回列表 上一主題 發帖

[發問] 如何比對出A/B欄重複及欠缺之數值

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
1# 跳轉到 »
發表於 2011-10-8 07:52 | 顯示全部帖子
回復 1# loyyee
數值比對-Ans.zip (29.08 KB)

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
2#
發表於 2011-10-8 10:02 | 顯示全部帖子
回復 3# loyyee
剛剛發現原程式有兩個地方有錯誤之前沒有注意到 :
  If .Cells(lTarRow(iLack) - 1, iLack) <> "A" & Right("0000" & lCount, 4) Then
與
  .Value = "A" & Right("0000" & lCount, 4)
lCount 要改成 lJ

修改程式如下:
數值比對-Ans2.zip (28.63 KB)

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題