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)

您需要遍历受影响范围内的所有细胞。