Új hozzászólás Aktív témák

• #49147 Mutt senior tag andreas49 #49138

  Új Válasz 2022-06-02 19:13:21 #49147

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Mutt

  senior tag

  válasz andreas49 #49138 üzenetére

  Esetleg ez. Sok cellát tartalmazó lapon nem lesz gyors.

  Sub Tisztit()
Dim wsCurrent As Worksheet
Dim rngData As Range
Dim cella As Range

Application.ScreenUpdating = False
Application.EnableEvents = False

For Each wsCurrent In Worksheets
Set rngData = wsCurrent.UsedRange

For Each cella In rngData
If Not cella.HasFormula Then cella = Trim(cella)
Next cella
Next wsCurrent

Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub

Új hozzászólás Aktív témák