În cazul în care doriți ca un cod VBA să elimine toate spațiile finale din doar foaia activă, atunci acest articol vă va ajuta cu siguranță. De multe ori am lăsat un spațiu la sfârșit din greșeală sau uneori copiem date de pe web și nu observăm. În acest articol, vom învăța cum să eliminăm spațiul rămas din greșeală.
Întrebare): În Excel, putem folosi funcția TRIM cu SUBSTITUTE & CHAR, adică = TRIM (SUBSTITUTE (A1, CHAR (160), "")) pentru a elimina spațiul final la sfârșitul oricărui text.
Aș dori ca un Macro să mă ajute să elimin toate spațiile inutile rămase la sfârșitul șirului.
Pentru a obține codul pentru eliminarea spațiului la sfârșitul textului; trebuie să urmăm pașii de mai jos pentru a lansa editorul VB.
- Faceți clic pe fila Dezvoltator
- Din grupul de coduri, selectați Visual Basic
Copiați următorul cod în modulul de foaie de lucru
Subspatiu trim ()
Dim c As Range, rngConstants As Range
La eroare Reluați în continuare
Setați rngConstants = ActiveSheet.UsedRange.SpecialCells (2, 2)
La eroare GoTo 0
If Not rngConstants is Nothing Atunci
„optimizați performanța
Application.ScreenUpdating = Fals
Application.Calculation = xlCalculationManual
'tăiați celulele incl. caracterul 160
Pentru fiecare c În rngConstante
c.Value = Trim $ (Application.Clean (Înlocuiți (c.Value, Chr (160), "")))
Următorul c
'reseteaza setarile
Application.ScreenUpdating = Adevărat
Application.Calculation = xlCalculationAutomatic
End If
Sfârșitul Sub
- Aceasta va elimina toate spațiile la final.
Notă: Macro-ul de mai sus va rula numai pe foaia de activități.
În acest fel, putem elimina spațiile finale la final, folosind codul VBA.
Descărcare - Eliminați spațiul final prin VBA - xlsm