- 帖子
- 2799
- 主題
- 10
- 精華
- 0
- 積分
- 2855
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-4-28
|
先做個~~- Sub 比對()
- Dim Arr, xD, Ra As Range, Rb As Range, j%, R&, T$, SS, C%
- Set xD = CreateObject("Scripting.Dictionary")
- Arr = Sheets("Sheet1").UsedRange: Set Ra = [Sheet1!A1]
- For R = 2 To UBound(Arr)
- T = Arr(R, 2) & "|" & Arr(R, 3) & "|" & Arr(R, 4)
- xD(T) = R & "|" & Arr(R, 6) & "|" & Arr(R, 12)
- Next
- '------------------------------
- Arr = Sheets("Sheet2").UsedRange: Set Rb = [Sheet2!A1]
- For R = 2 To UBound(Arr)
- T = Arr(R, 2) & "|" & Arr(R, 3) & "|" & Arr(R, 4)
- If T = "||" Then GoTo 102
- SS = Split(xD(T) & "||", "|")
- If Val(SS(0)) = 0 Then Union(Rb(R, 6), Rb(R, 12)).Interior.ColorIndex = 43: GoTo 102
- For j = 1 To 2
- C = Array(0, 6, 12)(j)
- If SS(j) <> Arr(R, C) Then
- Ra(SS(0), C).Interior.ColorIndex = 6
- Rb(R, C).Interior.ColorIndex = 6
- End If
- Next j
- xD.Remove T
- 102: Next
- '------------------------------
- For Each SS In xD.items
- R = Val(Split(SS & "||", "|")(0))
- If R > 0 Then Union(Ra(R, 6), Ra(R, 12)).Interior.ColorIndex = 43
- Next
- End Sub
 Xl0000066.rar (14.62 KB)
============================= |
|
發表於 2020-4-3 11:13
| 
