On menossa projekti, johon liittyy hyvin laaja Excel-taulukko (tuhansia lukuja useissa eri sarakkeissa). Materiaali on siis kerätty Excel-kyselyllä. Ongemana on, että monissa näistä luvuista on välilyönti perässä, jolloin esim. jakolaskukaavoihin tulee vain #ARVO! Näin ollen joutuisin siis käymään jokaisen solun yksitellen, enkä voi vain laskea kaavaa ensimmäisestä rivistä ja vetää alas. Onko tähään mitään jippoa, että turhat välilyönnit saisi pois?
Turhien välilyöntien poisto?
excelamatööri
59291
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 5
Vanhimmat
Sub Trimmaa()
Dim Solu As Range
'muuta solualue sopivaksi...
For Each Solu In Range("A1:C10")
Solu.Value = Trim(Solu.Value)
Next Solu
End Sub
Löysin tuonmoisen "pikaohjeen". Ihan uusi tuttavuus minullekkin. Eli.
- valitse hiirellä puhdistettavat solut
- Aloitus välilehdeltä valitse "Etsi ja valitse" ja sieltä "Korvaa"
- "Etsittävä" kohtaan kirjoita Alt-painike pohjassa 0160 (näkyviin ei jää mitään)
- "Korvaava" kohta jätä tyhjäksi
- klikkaa "Korvaa kaikki"
Nopea tapa valita sarakkeesta kaikki alekkaiset luvulliset solut, Valitse hiirellä ensimmäinen. Ctrl ja Vaihto pohjassa klikkaa "Nuoli alas", jos tulee tyhjä solu vastaan paina "Nuoli alas" uudestaan,
Tämä poistaa kaikki välilyönnit maalatulta aluelta:
Sub Siivoa()
For Each solu In Selection
With WorksheetFunction
a = .Substitute(solu.Text, " ", "")
a = Val(.Substitute(a, ",", ".")) ' jos on desimaaliliukuja
solu.Value = a
solu.NumberFormat = "General"
End With
Next solu
End Sub
Miten saadaan välilyönnin jälkeen tuleva 8 pois. Esim. välilyönti 8pois?
- "Etsittävä" kohtaan " 8"
- "Korvaava" kohtaan "" (tyhjä)
- klikkaa "Korvaa kaikki"