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.
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.