麻辣家族討論版版 » Excel程式區 » 還是一個比對的問題

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

帖子: 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

中學生 Rank: 2

帖子: 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 | 只看該作者

Sub 資料比對()
For r = 12 To Sheets("Sheet1").[D65536].End(xlUp).Row
With Sheets("Sheet1")
A = .Cells(r, "D").Value
B = .Cells(r, "G").Value
End With
For rr = 1 To Sheets("Temp").[A65536].End(xlUp).Row
If A = Sheets("Temp").Cells(rr, "A").Value Then
If B = Sheets("Temp").Cells(rr, "B").Value Then
Sheets("Sheet1").Cells(r, "B").Value = "V"
Else
Sheets("Sheet1").Cells(r, "B").Value = "?"
End If
End If
Next rr
Next r
End Sub

複製代碼

diabo

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2011-9-14 23:13 | 只看該作者

Sub ex()
Dim A As Range
Application.ScreenUpdating = False
Set d = CreateObject("Scripting.Dictionary")
With Sheets("Temp")
For Each A In .Range(.[A1], .[A1].End(xlDown))
d(A.Value) = A.Offset(, 1).Value
Next
End With
With Sheets("Sheet1")
.[B:B] = ""
For Each A In .Range(.[D12], .[D65536].End(xlUp))
If d.exists(A.Value) = True Then
If A.Offset(, 3) <> d(A.Value) Then
A.Offset(, -2) = "?"
ElseIf A.Offset(, 3) = d(A.Value) Then
A.Offset(, -2) = "V"
End If
End If
Next
End With
Application.ScreenUpdating = True
End Sub

複製代碼

回復 1# jesscc

學海無涯_不恥下問

中學生 Rank: 2

帖子: 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

超級版主 Rank: 8 Rank: 8

帖子: 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
有關畫面更新的問題
看個人喜好而已不一定要用的.

中學生 Rank: 2

帖子: 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

靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。

返回列表下一主題上一主題