Importējot teksta failu Excel izklājlapā, diemžēl tā beigās ir saglabāti nevēlamie komati. Šūnās ir ļoti grūti noņemt papildu komatus. Ja mēģināt to labot manuāli, tas prasīs daudz laika. Tomēr ar makro kodu būs daudz vieglāk.
Šajā rakstā mēs pievērsīsimies tam, kā noņemt nevēlamos komatus un turēt tos, kur tas ir nepieciešams. Vienmēr ir labāk sākt ar datu tīrīšanu, lai vēlāk izvairītos no kļūdām un sagatavotu ziņojumus, kas citādi būtu varējuši būt ļoti drudžaini un neviens nevēlas tērēt laiku atkārtotai darbībai.
Ja datos atrodat nevajadzīgus komatus, varat tos noņemt dažādu funkciju dēļ, piemēram, TRIM, SUBSTITUTE, FIND, LEN, REPLACE vai arī FIND & REPLACE (CTRL + H). Jūs varat izvēlēties no vairākām metodēm to noņemšanai.
Šajā rakstā mēs pievērsīsimies tam, kā noņemt nevēlamos komatus no importētajiem CSV failiem un pēc tam saglabāt pēc tīrīšanas pabeigšanas, izmantojot VBA kodu.
Jautājums: Lūdzu, skatiet txt faila paraugu pielikumā. Man nepieciešams vb kods, lai izdzēstu pēdējās 8 rindas#5 rakstzīmes
Lai iegūtu papildinformāciju par jautājumu, varat noklikšķināt uz šīs saites
Tālāk ir sniegta piezīmju grāmatiņas faila momentuzņēmums:
5. rindā ir šāds teksts: "RX408282,20150630 ,,,,,,,,"
kamēr tam jābūt "RX408282,20150630" & tajā pašā laikā VBA kodam nevajadzētu dzēst komatu iepriekšminētajās 4 rindās.
Lai iegūtu kodu, mums ir jāveic šādas darbības, lai palaistu VB redaktoru:
- Noklikšķiniet uz cilnes Izstrādātājs
- Kodu grupā atlasiet Visual Basic
- Nokopējiet zemāk esošo kodu standarta modulī
Apakštests () Dim fn Kā virkne, txt Kā virkne fn = Application.GetOpenFilename ("TextFiles,*. Txt") Ja fn = "" Tad Exit Sub txt = CreateObject ("Scripting.FileSystemObject"). OpenTextFile (fn). ReadAll With CreateObject ("VBScript.RegExp") .Global = True: .MultiLine = True .Pattern = ",+$" Open Replace (fn, ".txt", "_Clean.txt") Izvadei kā #1 Print # 1, .Nomainiet (txt, "") Aizveriet #1 beigas ar beigu apakšdaļu
Koda skaidrojums:
- Iepriekš minētais kods vispirms lūgs jums izvēlēties failu, kurā tas atrodas
- Pēc koda izpildes mēs iegūstam izvades failu ar nosaukumu Test_Clean
- Lai pārbaudītu, vai kods darbojas labi vai nē; Atvērsim .txt failu un apskatīsim rezultātus
- Mēs varam redzēt pēdējo rindu, t.i., 5. rindu, kuras iepriekš beigās bija nevēlami komati, tagad ir novērsti
Secinājums: Tādā veidā mēs varam noņemt papildu komatus no norādītās mapes un pēc tam saglabāt pareizos datus citā piezīmju grāmatiņas failā.
Ja jums patika mūsu emuāri, kopīgojiet to ar saviem draugiem Facebook. Un arī jūs varat sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot, papildināt vai ieviest jauninājumus mūsu darbā un uzlabot to jūsu labā. Rakstiet mums e -pasta vietnē