Importuodamas teksto failą į „Excel“ skaičiuoklę, deja, jo pabaigoje liko nepageidaujami kableliai. Ląstelėse pašalinti papildomus kablelius tampa tikrai sunku. Jei bandysite tai išspręsti rankiniu būdu, tai užtruks daug laiko. Tačiau naudojant makro kodą bus daug lengviau.
Šiame straipsnyje mes sutelksime dėmesį į tai, kaip pašalinti nepageidaujamus kablelius ir laikyti juos ten, kur to reikia. Visada geriau pradėti nuo duomenų valymo, kad vėliau išvengtumėte klaidų, ir pateikti ataskaitas, kurios priešingu atveju galėjo būti labai įtemptos ir niekas nenori skirti laiko pakartotiniam darbui.
Jei radote nereikalingų kablelių duomenyse, galite juos pašalinti dėl įvairių funkcijų, tokių kaip TRIM, SUBSTITUTE, FIND, LEN, REPLACE arba galite naudoti FIND & REPLACE (CTRL + H). Galite pasirinkti iš kelių būdų juos pašalinti.
Šiame straipsnyje mes sutelksime dėmesį į tai, kaip pašalinti nepageidaujamus kablelius iš importuotų CSV failų ir išsaugosime juos po to, kai valymas bus baigtas naudojant VBA kodą.
Klausimas: Žiūrėkite txt failo pavyzdį priede. Man reikia vb kodo, kad galėčiau ištrinti paskutinius 8 eilutės#5 simbolius
Norėdami gauti daugiau informacijos apie klausimą, spustelėkite šią nuorodą
Žemiau yra užrašų knygelės momentinė nuotrauka:
5 eilutėje yra toks tekstas „RX408282,20150630 ,,,,,,,,“
tuo tarpu jis turi būti „RX408282,20150630" & tuo pačiu metu VBA kodas neturėtų ištrinti kablelio aukščiau esančiose 4 eilutėse.
Norėdami gauti kodą, norėdami paleisti VB redaktorių, turime atlikti šiuos veiksmus:
- Spustelėkite skirtuką Kūrėjas
- Kodo grupėje pasirinkite „Visual Basic“
- Nukopijuokite žemiau esantį kodą į standartinį modulį
Sub test () Dim fn As String, txt As String fn = Application.GetOpenFilename ("TextFiles,*. Txt") Jei fn = "" Tada Exit Sub txt = CreateObject ("Scripting.FileSystemObject"). OpenTextFile (fn). ReadAll With CreateObject ("VBScript.RegExp") .Global = True: .MultiLine = True .Pattern = ",+$" Open Replace (fn, ".txt", "_Clean.txt"), kad būtų išvestis kaip #1 Print # 1, .Pakeisti (txt, "") Uždaryti #1 pabaigą su pabaiga Sub
Kodo paaiškinimas:
- Pirmiau pateiktas kodas paprašys pasirinkti failą, kuriame jis yra
- Kai kodas paleidžiamas, gauname išvesties failą su pavadinimu Test_Clean
- Norėdami patikrinti, ar kodas veikia gerai, ar ne; atidarykime .txt failą ir peržiūrėkite rezultatus
- Galime matyti paskutinę eilutę, t. Y. 5 eilutę, kurios pabaigoje buvo nepageidaujamų kablelių, dabar pataisyta
Išvada: Tokiu būdu mes galime pašalinti papildomus kablelius iš nurodyto aplanko ir išsaugoti teisingus duomenis kitame bloknoto faile.
Jei jums patiko mūsų tinklaraščiai, pasidalykite jais su draugais „Facebook“. Taip pat galite sekti mus „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime patobulinti, papildyti ar naujovinti savo darbą ir padaryti jį geresnį. Parašykite mums el