Exit Sub后無法再次運行sub

Question

我運行了以下代碼（可以確保在范圍內輸入的所有文本均僅使用大寫）。 但是，然后我從一系列單元格中刪除了數據，然后退出了子程序，現在我無法使其再次運行，有人可以幫忙嗎？

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("O5:Q1000")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Target = UCase(Target)
    Application.EnableEvents = True
End Sub

Answer 1

除了評論外，以下是解決方法：

For Each c In Target
    c = UCase(c)
Next

代替Target = UCase(Target)

您需要遍歷受影響范圍內的所有細胞。