请问 Excel VBA 为何要用光标点击显示结果的单元格才有结果？

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Arr, i&, j&, Rng As Range, Dic As Object, St$, k&

Arr = Array("自己", "幸福", "爱情", "好的", "城市")
Set Dic = CreateObject("Scripting.Dictionary")
For Each Rng In Range("K11,P11,U11,Z11")
Dic(Rng.Value) = ""
Next Rng
For i = 0 To UBound(Arr)
k = 0
For j = 1 To Len(Arr(i))
If Dic.Exists(Mid(Arr(i), j, 1)) Then k = k + 1
Next j
If k = Len(Arr(i)) Then St = St & vbLf & Arr(i)
Next i
Set Dic = Nothing

Application.EnableEvents = False
If Len(St) > 0 Then
[B22] = Mid(St, 2)
Else
[B22] = Empty
End If
Application.EnableEvents = True
End Sub

相关了解……