giúp làm bài tập excel với!

[olaakon]

mình có chuỗi này: x90c, x100k, x1100c, x300c, n2970k, n300k, mình muốn tách lấy các số ra trong chuỗi này thì làm sao, ai giúp với.thank mọi người

 

[nguoiconxunui]

lấy số đầu và số cuối vứt ra thôi

 

[Kin7]

mình có chuỗi này: x90c, x100k, x1100c, x300c, n2970k, n300k, mình muốn tách lấy các số ra trong chuỗi này thì làm sao, ai giúp với.thank mọi người

Dùng 2013. 1 phát xong.

 

[olaakon]

Dùng 2013. 1 phát xong.

mình dùng 2007 bạn ơi,thi trên 2007

 

[Kin7]

mình dùng 2007 bạn ơi,thi trên 2007

Bạn gửi file lên đây.
Rồi mình thử làm cho.
Ko thì chịu khó mang sang 2013.
1 nốt nhạc.

 

[b15qth2]

Như dữ liệu bạn đưa lên mình làm cách này, bạn thử xem ok ko.
Hi, mình xem lại nhưng thấy ko ổn lắm nên xóa file đi rồi, để mình xem lại có cách nào ko.

 

[Loan Nguyễn 90]

Bạn thử cách này xem
§ Bước 1: mở Microsoft Excel lên
§ Bước 2: nhấn Alt + F11 -> mở ra cửa sổ Microsoft Visual Basic -> Insert -> Module
§ Bước 3: Bạn nhập đoạn code bên dưới vào cửa sổ Book1-Module1 (Code):
Function ExtractNumber(rCell As Range)
Dim lCount As Long
Dim sText As String
Dim lNum As String
sText = rCell
For lCount = Len(sText) To 1 Step -1
If IsNumeric(Mid(sText, lCount, 1)) Then
lNum = Mid(sText, lCount, 1) & lNum
End If
Next lCount
ExtractNumber = CLng(lNum)
End Function
§ Bước 4: Quay lại Microsoft Excel, bạn dùng hàm ExtractNumber như hình bên dưới:
=ExtractNumber( chuỗi cần tách)

 

[Espresso]

mình có chuỗi này: x90c, x100k, x1100c, x300c, n2970k, n300k, mình muốn tách lấy các số ra trong chuỗi này thì làm sao, ai giúp với.thank mọi người

x90c, x100k, x1100c, x300c, n2970k, n300k
Muốn thành --> 90, 100, 1100, 300, 2970, 300 ??

Function CleanAlphabet(Txt)

For x = 1 To 255
Select Case x
Case 45, 47, 65 To 90, 95, 97 To 122
Txt = WorksheetFunction.Substitute(Txt, Chr(x), "")
End Select
Next x

CleanAlphabet = Txt

End Function