返回列表 上一主題 發帖

[發問] 還是一個比對的問題

jesscc

帖子
162 
主題
44 
精華
0 
積分
244 
點名
0  
作業系統
windows 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-4-4 
最後登錄
2022-10-3 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-9-14 22:05 | 只看該作者

[發問] 還是一個比對的問題

我覺得 Excel VBA 比對的寫法真的是超複雜，一直好像都抓不到重點
我要用工作頁Temp的A、B欄和工作頁Sheet1的D、G欄比對。
如果Temp-A欄和Sheet1-D欄相同，就比對它們各自對應的B、G欄(數值)，如果數值不同，就在Sheet1-B欄標記出"?"
數值相同就標記出"V"，比對不到的就不做任何動作。

我的測試檔比對出來的結果，完全不符所需，我實在也找不出哪裡有問題。
test.rar (24.77 KB)
收藏 分享
Jess

diabo

帖子
79 
主題
2 
精華
0 
積分
193 
點名
0  
作業系統
Winwos 7 64 bits 
軟體版本
Excel 2003/2007 
閱讀權限
20 
性別
男 
來自
TAIPEI 
註冊時間
2010-8-25 
最後登錄
2019-9-20 
2#
發表於 2011-9-14 23:03 | 只看該作者
  1. Sub 資料比對()

  3. For r = 12 To Sheets("Sheet1").[D65536].End(xlUp).Row
  4.      
  5.     With Sheets("Sheet1")
  6.         A = .Cells(r, "D").Value
  7.         B = .Cells(r, "G").Value
  8.     End With
  9.    
  10.     For rr = 1 To Sheets("Temp").[A65536].End(xlUp).Row
  11.    
  12.         If A = Sheets("Temp").Cells(rr, "A").Value Then
  13.         
  14.             If B = Sheets("Temp").Cells(rr, "B").Value Then
  15.                 Sheets("Sheet1").Cells(r, "B").Value = "V"
  16.             Else
  17.                 Sheets("Sheet1").Cells(r, "B").Value = "?"
  18.             End If
  19.         
  20.         End If
  21.    
  22.     Next rr

  24. Next r

  26. End Sub
複製代碼
diabo

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
244  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-10 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2011-9-14 23:13 | 只看該作者
  1. Sub ex()
  2. Dim A As Range
  3. Application.ScreenUpdating = False
  4. Set d = CreateObject("Scripting.Dictionary")
  5. With Sheets("Temp")
  6.    For Each A In .Range(.[A1], .[A1].End(xlDown))
  7.      d(A.Value) = A.Offset(, 1).Value
  8.    Next
  9. End With
  10. With Sheets("Sheet1")
  11. .[B:B] = ""
  12.   For Each A In .Range(.[D12], .[D65536].End(xlUp))
  13.      If d.exists(A.Value) = True Then
  14.         If A.Offset(, 3) <> d(A.Value) Then
  15.         A.Offset(, -2) = "?"
  16.         ElseIf A.Offset(, 3) = d(A.Value) Then
  17.         A.Offset(, -2) = "V"
  18.         End If
  19.      End If
  20.   Next
  21. End With
  22. Application.ScreenUpdating = True
  23. End Sub
複製代碼
回復 1# jesscc
學海無涯_不恥下問

TOP

jesscc

帖子
162 
主題
44 
精華
0 
積分
244 
點名
0  
作業系統
windows 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-4-4 
最後登錄
2022-10-3 

論壇贊助勳章
4#
發表於 2011-9-14 23:39 | 只看該作者
謝謝d大和H大超快速的解決方案
想請問H大
第3、22行有關畫面更新的問題。是否決定於要比對資料量的大小而開啟或關閉。還是說沒必要的話盡可能都關閉。
Jess

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2011-9-15 06:57 | 只看該作者
回復 4# jesscc
有關畫面更新的問題
看個人喜好而已不一定要用的.

TOP

jesscc

帖子
162 
主題
44 
精華
0 
積分
244 
點名
0  
作業系統
windows 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-4-4 
最後登錄
2022-10-3 

論壇贊助勳章
6#
發表於 2011-9-15 20:56 | 只看該作者
回復 5# GBKEE


    了解!
謝謝H大和G大。
Jess

TOP

        靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。
返回列表 上一主題