Solun luku viereiseen soluun takaperin

Taitaa joutua tekemään oman funktion.

Alkuperäinen luku pitää purkaa johonkin sivuun merkki kerrallaan ja yhdistää halutusta uudelleen. Mutta mitä järkeä tässä on?

Yksi mahdollisuus:
=POIMI.TEKSTI(A1;5;1)&POIMI.TEKSTI(A1;4;1)&POIMI.TEKSTI(A1;3;1)&POIMI.TEKSTI(A1;2;1)&POIMI.TEKSTI(A1;1;1)
HUOM! Luvut eivät ole enää laskukelpoisia (ovat tekstiä). Jos niillä pitää laskea, niin voit muuttaa ne numeroiksi vaikkapa näin:
Kirjoita johonkin tyhjään soluun numero 1. Kopioi tämä. Valitse B1 ja B2. Liitä määräten.Ruksaa kohdat "Arvot" ja "Kerro". OK.

Tuo poimi.teksti toimii hyvin, kiitos siitä.

Jatkona tuohon ongelmaan, että kun lukujoukko on tyyliin välillä
00000
...........
54000
ja saan käännettyä kyllä luvut toisinpäin vierekkäiseen sarakkeeseen tekstiksi ja vielä siitä viereseen sarakkeeseen luvuksi, mutta kun minun tarvisi tietää oikeinpäin ja toisinpäin olevien lukujen symmetristen (anagrammi) lukujen määrä.
Eli esimerkiksi
A1 0000 B1 00000 = 1 symmetrinen luku
A2 02020 B2 02020 = 1 symmetrinen luku
A3 12321 B3 12321 = 1 symmetrinen luku
A4 12345 B4 54321 = ei symmetrinen
jne

Eli esimerkissä on kolme symmetristä lukua.

En saa exceliä laskemaan niitä jos solu on yleinen tahi teksti, vastaavasti jos muuttaa luvuksi niin luvun edestä jää pois nollat.

Käytä Reversestr-funktiota, jonka teet ensin itse.

Paina näppäimistöltä ALT F11, jolloin VBA-editori aukeaa.

Lisää hiirellä uusi moduuli: Insert -> Module

Kirjoita ikkunaan seuraavat loitsut:

Function Reversestr(str As String) As String
Reversestr = StrReverse(Trim(str))
End Function

Sen jälkeen voit palata takaisin taulukkoikkunaan.

Jos haluat kääntää vaikkapa A1-sarakkeen tekstin, niin kirjoita B1-sarakkeeseen funktio =reverestr(A1).

Koodi toimii, mutta ohjeessa virhe. B1 soluun siis kirjoita =reversestr(A1). Puuttui yksi "s".