GBKEE

回復 1# GGGYYY
試試看

1. Option Explicit
   
2. Sub Ex_Match() '大小寫沒有分別
   
3.     Dim M As Variant, Rng As Range, E As Range
   
4.     Set Rng = Sheets("對照").Range("A:A")
   
5.     For Each E In Sheets("數值").UsedRange.Columns(1).Offset(1).Cells
   
6.         M = Application.Match(E, Rng, 0)   '沒找到傳回錯誤值
   
7.         If IsNumeric(M) Then               '找到傳回數字
   
8.             Rng.Cells(M, 2).Resize(, 2).Copy E.Offset(, 1)
   
9.         Else
   
10.             With E.Cells(1, 2).Resize(, 2)
    
11.                 .Value = ""
    
12.                 .Interior.ColorIndex = xlNo
    
13.             End With
    
14.         End If
    
15.     Next
    
16. End Sub
    
17. 
    
18. Sub Ex_字典物件() '大小寫有分別
    
19.     Dim E As Range, d As Object, i As Integer
    
20.     Set d = CreateObject("scripting.dictionary") '字典物件
    
21.     i = 1
    
22.     With Sheets("對照")
    
23.         Do While .Cells(i, "a") <> ""
    
24.             Set d(.Cells(i, "a").Value) = .Cells(i, "a").Offset(, 1).Resize(, 2)
    
25.             i = i + 1
    
26.         Loop
    
27.     End With
    
28.     For Each E In Sheets("數值").UsedRange.Columns(1).Offset(1).Cells
    
29.         If d.EXISTS(E.Value) Then   'Dictionary 物件中指定的關鍵字存在，傳回 True，若不存在，傳回 False。
    
30.             d(E.Value).Copy E.Offset(, 1)
    
31.         Else
    
32.             With E.Cells(1, 2).Resize(, 2)
    
33.                 .Value = ""
    
34.                 .Interior.ColorIndex = xlNo
    
35.             End With
    
36.         End If
    
37.     Next
    
38. End Sub

複製代碼

GBKEE

回復 5# pegawang
當 range1 Is Nothing   
MsgBox (range1.Address)  會出錯的