Запуск VBA-кепок/замена скрипта на нескольких строках вставленных данных

Question

Я запускаю скрипт VBA для автоматического заглаживания и удаления дефисов из вставленных данных в Excel. Этот сценарий отлично работает на одной линии паст (одноклеточных), но не будет работать (не делает ничего, чтобы изменить данные), если несколько строк данных вклеены в Ниже мой код:.

Private Sub worksheet_change(ByVal target As Range) 
    Application.EnableEvents = False 
     With target 
     On Error Resume Next 
     Dim rng As Range 
     Set rng = Range("A:U") 

     If Not Intersect(target, rng) Is Nothing Then 
      If Not .HasFormula Then 
       .Value = UCase(.Value) 
       .Value = Replace(.Value, "-", "") 
      End If 
     End If 
    End With 
    Application.EnableEvents = True 
End Sub 

Answer 1

Try это

Private Sub worksheet_change(ByVal target As Range) 
    Application.EnableEvents = False 
    With target 
     On Error Resume Next 
     Dim rng As Range 
     Dim cell As Range 
     Set rng = Range("A:U") 

     If Not Intersect(target, rng) Is Nothing Then 
      For Each cell in target 
       If Not cell.HasFormula Then 
        cell.Value = UCase(cell.Value) 
        cell.Value = Replace(cell.Value, "-", "") 
       End If 
      next cell 
     End If 
    End With 
    Application.EnableEvents = True 
End Sub