oobird

這種目的應該用Worksheet_Change事件而不是Worksheet_SelectionChange事件。

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Or Target.Column <> 2 Then Exit Sub
   
3. On Error Resume Next
   
4. Target(1, 2) = Sheet2.[b:b].Find(Target, , , 1)(1, 2).Value
   
5. End Sub

複製代碼

oobird

If Target.Count > 1 Or Target.Column <> 2 Then Exit Sub  
這行是限定對單一儲存格輸入同時輸入的欄位必須是b欄才會執行動作。
你若拿掉會在任何地方輸入或改變時都執行。

oobird

例如a1與b1儲存格都是文字不是數字，不能做運算。
程式碼：
On Error Resume Next
[c1] = [a1] * [b1]
這樣它不會告訴你任何錯誤訊息。