Kā tīrīt šūnas, izmantojot VBA
Īpaši pēc datu importēšanas var gadīties, ka sarakstus nevar nolasīt uzreiz vai tie nav pareizi formatēti. Bieži sastopama problēma ir sākuma atstarpes ciparu vai teksta priekšā. Nākamais attēls parāda, kā šāds saturs var izskatīties:
Lai jūsu datos automātiski noņemtu atstarpes, vispirms atlasiet atbilstošo šūnu diapazonu un pēc tam izsauciet šādu makro:
Sub RemoveSpace ()
Dim šūna kā diapazons
Katrai atlasītajai šūnai
Cell.Value = Application.Trim (Cell.Value)
Nākamā šūna
Beigt apakš
Makro izdzēš visas galvenās tukšās vietas no jūsu iepriekš atlasītajiem datiem. Saturs vienlaikus tiek pārvērsts arī absolūtās vērtībās. Šis attēls parāda reklāmguvuma rezultātu:
Padoms. Ja vēlaties uzzināt, kā programmā Excel ievadīt un sākt makro, īsu aprakstu atradīsiet šeit: www.exceldaily.de/excel-makros-vba/artikel/d/so-gend-sie-makros-in -excel- a.html
