16. august 2011 - 17:25Der er
10 kommentarer og 1 løsning
Finde det sidste ord i en celle
Hejsa.
Er der nogle der kender en formel/Makro der kan finde det sidste ord i cell A1 (og 1200 rækker ned)og sætte det i celle B2. Det oprindelige ord i A1 skal forblive det oprindelige.
Eks. Jeg har brug for hjælp fra jer. Jer skal der således stå i celle B2.
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Hvis du indtaster den i B2 kommer der til at stå "jer" i B2 Hvis du kopierer den ned til B3, altså: =HØJRE(A2;LÆNGDE(A2)-FIND("*";UDSKIFT(A2;" ";"*";LÆNGDE(A2)-LÆNGDE(UDSKIFT(A2;" ";""))))) kommer der til at stå det sidste ord fra A2
Dim antalRæk As Long, ræk As Long, ord As String, ordet As String Dim f As Integer Public Sub uddragSidsteOrd() antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
For ræk = 1 To antalRæk ord = Trim(Range("A" & ræk))
For f = Len(ord) To 1 Step -1 If Mid(ord, f, 1) = " " Then ordet = Mid(ord, f + 1) Range("B" & ræk + 1) = ordet Exit For End If Next f Next ræk End Sub
Mit bedste bud: I B1 skriver du: =VENSTRE(A1;LÆNGDE(A1)-SØG(" ";A1)) I C2 skriver du: =HØJRE(A1;LÆNGDE(A1)-FIND("*";UDSKIFT(A1;" ";"*";LÆNGDE(A1)-LÆNGDE(UDSKIFT(A1;" ";"")))))
Herefter skjuler du kolonne A
Nu står det ønskede så i B1 og C2 i stedet for i A1 og B2, men da A kolonnen er skjult, burde det vel ikke være noget problem?
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.