返回列表 上一主題 發帖

[發問] 資料庫比對的問題

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2012-3-9 14:36 | 顯示全部帖子
回復 1# fusayloveme
  1. Sub xx()
  2. Sheets("A資料庫").Select
  3. Set SourceA = Sheets("A資料庫").Range([A2], [A65536].End(xlUp))
  4. Sheets("B資料庫").Select
  5. Set SourceB = Sheets("B資料庫").Range([A2], [A65536].End(xlUp))
  6. For Each A In SourceA
  7.   X = Application.CountIf(SourceB, A) - Application.CountIf(SourceA, A)
  8.   If X <> 0 Then
  9.      Set RFind = Columns("E").Find(A, , , xlWhole)
  10.      If RFind Is Nothing Then
  11.        [E65536].End(xlUp).Offset(1, 0) = A
  12.        [E65536].End(xlUp).Offset(0, 1) = X
  13.      End If
  14.   End If
  15. Next A
  16. For Each B In SourceB
  17.   X = Application.CountIf(SourceB, B) - Application.CountIf(SourceA, B)
  18.   If X <> 0 Then
  19.      Set RFind = Columns("E").Find(B, , , xlWhole)
  20.      If RFind Is Nothing Then
  21.        [E65536].End(xlUp).Offset(1, 0) = B
  22.        [E65536].End(xlUp).Offset(0, 1) = X
  23.      End If
  24.   End If
  25. Next B
  26. End Sub
複製代碼

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-3-12 17:13 | 顯示全部帖子
回復 4# fusayloveme

其實一開始就覺得題目怪怪的(或者說你沒把題目,功能講清楚;或者說我理解能力不夠,沒把你的說明弄清楚)
1.A資料庫,B資料庫是否只比對A欄位(ControlNO)?
  若是:A欄位(ControlNO)下的內容有重覆的,那要如何比對?  這就是我一開始只比對數量差異的原因
  若否:除A欄位外,應把B欄位C欄位呈現出來
2.你3F,4F所講的我也不了解意思

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
3#
發表於 2012-3-12 18:07 | 顯示全部帖子
回復 7# fusayloveme
A資料庫(B資料庫)之A欄位沒有重覆值
  1. Sub xx()
  2. Sheets("比對結果").[A2:D65536] = ""
  3. Sheets("A資料庫").Activate
  4. Set SourceA = Sheets("A資料庫").Range([A2], [A65536].End(xlUp))
  5. Sheets("B資料庫").Activate
  6. Set SourceB = Sheets("B資料庫").Range([A2], [A65536].End(xlUp))
  7. Sheets("比對結果").Activate
  8. Sheets("比對結果").[A2:D65536] = ""
  9. For Each A In SourceA
  10.   X = Application.CountIf(SourceB, A) - Application.CountIf(SourceA, A)
  11.   If X = 0 Then
  12.      Sheets("比對結果").[C65536].End(xlUp).Offset(1, 0) = A
  13.   Else
  14.      Sheets("比對結果").[B65536].End(xlUp).Offset(1, 0) = A
  15.   End If
  16. Next A
  17. For Each B In SourceB
  18.   X = Application.CountIf(SourceB, B) - Application.CountIf(SourceA, B)
  19.   If X = 1 Then
  20.      Sheets("比對結果").[A65536].End(xlUp).Offset(1, 0) = B
  21.   End If
  22. Next B
  23. End Sub
複製代碼

TOP

        靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。
返回列表 上一主題