Ja vēlaties, lai VBA kods noņemtu visas atstarpes tikai aktīvajā lapā, šis raksts jums noteikti palīdzēs. Daudzas reizes beigās mēs atstājām atstarpi kļūdas dēļ vai dažreiz mēs kopējam datus no tīmekļa un nepamanām. Šajā rakstā mēs uzzināsim, kā novērst kļūdaini atstāto vietu.
Jautājums): Programmā Excel mēs varam izmantot funkciju TRIM ar SUBSTITUTE & CHAR, ti, = TRIM (SUBSTITUTE (A1, CHAR (160), "")), lai noņemtu atstarpi jebkura teksta beigās.
Es vēlētos, lai makro palīdzētu man noņemt visas nevajadzīgās atstarpes, kas palikušas virknes beigās.
Lai iegūtu kodu atstarpes noņemšanai teksta beigās; mums ir jāveic šādas darbības, lai palaistu VB redaktoru.
- Noklikšķiniet uz cilnes Izstrādātājs
- Kodu grupā atlasiet Visual Basic
Darblapas modulī nokopējiet šādu kodu
Apakšējā apdares telpa ()
Dim c As Range, rngConstants As Range
Par kļūdu Atsākt nākamo
Iestatiet rngConstants = ActiveSheet.UsedRange.SpecialCells (2, 2)
Kļūda GoTo 0
Ja ne rngConstants nav nekas
'optimizēt veiktspēju
Application.ScreenUpdating = Nepareizi
Application.Calculation = xlCalculationManual
"apdares šūnas, ieskaitot 160
Katram c In rngConstants
c.Value = Trim $ (Application.Clean (Aizstāt (c.Value, Chr (160), "")))
Nākamais c
'atiestatīt iestatījumus
Application.ScreenUpdating = Patiess
Application.Calculation = xlCalculationAutomatic
Beigas Ja
Beigt apakš
- Tas beigās noņems visas atstarpes.
Piezīme. Iepriekš minētais makro darbosies tikai aktīvajā lapā.
Tādā veidā mēs varam noņemt beigu atstarpes beigās, izmantojot VBA kodu.
Lejupielādēt - noņemiet atstarpes vietu, izmantojot VBA - xlsm