PNG32 PNG32 PNG32 PNG32
PNG32
Forum Excel, VBA, VSTO, Exceltips, Excelhj�lp PNG32 drivs av Excelspecialisten    Logga in     English
PNG32
PNG32 PNG32
PNG32

Logga in

PNG32

Du är inte inloggad. Logga in eller registrera dig för att skriva inlägg eller svara på inlägg.

För frågor om forumet, kontakta oss på webmaster@excelforum.se

PNG32 PNG32
PNG32 PNG32
PNG32

Excelforum

PNG32

 
ForumForumDiskussionerDiskussionerExcelExcelSeparera text och talSeparera text och tal
Föregående Föregående
 
Nästa Nästa
Nytt inlägg
 2010-02-10 16:01
 

Hej!


Problemställning:

I en sträng bestående av text och tal  (exempel: Cell A1 = "11AA1") vill separera text (bokstäver) från tal och presentera texten i en egen cell.

Värdet i cellen kan vara A-Z, 0-9 i olika kombinationer.

Texten är alltid versal och kan ha vilken plats som helst. Bokstäverna är alltid grupperade tillsammans. Inga mellanslag förekommer.

 

Exempel:

Cellvärde          Resultat efter separation

11AA1                AA

AA1                    AA

1A1                    A

A1                       A

11AA                  AA

 

Hur gör jag?

 

Tack på förhand!

 

//Per

Nytt inlägg
 2010-02-11 09:16
 

Följande macro borde lösa ditt problem.

 

Sub TaBortSiffror()

Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("B1").Select
ActiveSheet.Paste
Application.CutCopyMode = False

For Each Cell In Selection
MyText = Cell.Value
MyNewText = ""
MyLen = Len(MyText)
For i = 1 To MyLen
MyChr = Mid(MyText, i, 1)
If MyChr Like "[ABCDEFGHIJKLMNOPQRSTUVWXYZÅÄÖ]" Then
MyNewText = MyNewText + MyChr
End If
Next i
Cell.Value = MyNewText
Next Cell
Range("B1").Select
End Sub

Föregående Föregående
 
Nästa Nästa
ForumForumDiskussionerDiskussionerExcelExcelSeparera text och talSeparera text och tal

PNG32 PNG32
Excelforum drivs av Excelspecialisten som bedriver utbildning i Excel och VBA, tillhandahåller support och hjälp med Excel, utvecklar program i Excel. Är ni i behov av en konsult inom Excel, VBA eller VSTO, eller söker en excelkurs, kontakta oss.
Copyright 2013 ExcelSpecialisten XLS AB   Användarvillkor  Personliga uppgifter