dùng công thức mảng này
=mid($d5,large(if(isnumber(--mid($d5,row(indirect("1:"&len($d5))),1)),row(indirect("1:"&len($d5))),""),1)+1,len($d5))tạm giai thích n hư sau
Ngắn hơn nè :
=RIGHT(D5,LEN(D5)-MATCH(1,-MID(D5,ROW($1:$99),1)))=RIGHT(D5,LEN(D5)-LOOKUP(1,-MID(D5,ROW($1:$99),1),ROW($1:$99)))
Giả sử bạn có chuỗi SDFG658SR tại ô A1.
Vầy còn ngắn hơn:
=REPLACE(D5,1,MATCH(1,-MID(D5,ROW($1:$99),1)),"")Cảm ơn sư phụ, bao giờ sư phụ cũng là người đưa ra giải pháp ngắn nhất, he he!
DL=Sheet1!$D5DK=IF(ISNUMBER(1*MID(DL;ROW(INDIRECT("1:"&LEN(DL)));1));ROW(INDIRECT("1:"&LEN(DL)));"")=MID(DL;MAX(DK)+1;LEN(DL))đúng là ngắn thậtbấy lâu nay tôi cứ đi tìm cái xa xôi mà quên đi cái gần trước mắt.NDU đúng là quái kiệt của GPE30/4--1/5 nghỉ 3 ngày chắc phải ốp la thôi anh Tuấn nhỉẹc ẹc
-MID(D5,ROW($1:$99),1)Dữ liệu cần tách tại A1 :
=LOOKUP(99^99,--MID(A1,MIN(FIND({0,1,2,3,4,5,6,7,8,9},A1&"0123456789")),ROW(INDIRECT("1:"&LEN(A1)))))=REPLACE(D5,1,MATCH(1,-MID(D5,ROW($1:$99),1)),"")MID(D5,MATCH(1,-MID(D5,ROW(INDIRECT("1:"&LEN(D5))),1))+1,LEN(D5))Ui siêu gì đâu, tôi cũng học của các sư phụ và các anh chị trên diễn đàn thôi.
Function tachSOcuoi(Rng As Range)
Dim i As Integer
Dim Mys As String
Dim j As Integer
Dim x
Mys = Rng.Value
For i = Len(Mys) To 1 Step -1
If IsNumeric(Mid(Mys, i, 1)) Then Exit For
Next
For j = i To 1 Step -1
If IsNumeric(Mid(Mys, j, 1)) = False Then Exit For
x = Mid(Mys, j, 1) & x
Next
tachSOcuoi = x
End Function
Hihi, bài này viết code thì đơn giản thôi Còi nhỉ
Public Function LaySo(Cll As Range, ThuTu As Integer) As Variant
Dim CoRe, Tach, Kq
Set CoRe = CreateObject("VBScript.RegExp")
With CoRe
.Global = True
.Pattern = "[\D]"
Kq = Application.WorksheetFunction.Trim(.Replace(Cll, " "))
End With
Tach = Split(Kq)
If ThuTu - 1 > UBound(Tach) Then
LaySo = "Làm dech gì có so này"
Else
LaySo = Tach(ThuTu - 1)
End If
End Function
Híc
Bạn đừng nhìn thành phần của hàm Match mà phải nhìn cái đối số của hàm MID(...) kìa, so sánh nó với cú pháp của hàm MID(....) đơn giản mà bạn đã từng biết. Trong trường hợp này kết quả mà MID trả về không phải là 1 kết quả mà là một mảng kết quả vì thế mà phải dùng Công thức mảng. Giải thích đến đây chắc bạn đã hiểu vì sao phải bấm tổ hợp phím Ctrl+shift+Enter rồi chứ???
=LOOKUP(99^99,--MID(A1,MIN(FIND({0,1,2,3,4,5,6,7,8,9},A1&"0123456789")),ROW(INDIRECT("1:"&LEN(A1)))))Cảm ơn chị đã động viên, em mới tập VBA làm sao dám so sánh cùng chị được, em thấy chị kiến thức rất sâu, nhiệt tình chỉ bảo các thành viên mới bước vào nghiên cứu Excel, VBA
Ui, đừng gọi tôi là chị, tổn thọ lắm,hiiiiiiiii. cái này hem tương tự nhé, tìm hiểu về hàm Lookup chắc bạn chưa đọc chỗ này, đọc xong nhìn lại với các đối trong hàm Lookup mà tôi viết ở trên nhé.
Trong trường hợp này hàm Lookup hoạt động dạng mảng (bản thân nó là hàm mảng rùi nên k cần Ctrl+Shift+Enter nữa giống khi bạn sử dụng Sumproduct đó)
Trường hợp này bạn dùng công thức này sẽ gọn hơn nè.
=LOOKUP(9^99,--LEFT(A1,ROW(1:99)))=LOOKUP(1;-MID(D5;ROW($1:$99);1))=-MATCH(1;-MID(D5;ROW($1:$99);1))=LOOKUP(9^99,--LEFT(A1,ROW(1:99)))Tại vì khi viết hàm LOOKUP, bác Bill đã tính trước cho nó hoạt động trên mảng và không cần phải Ctrl + Shift + Enter (dù đối số của nó có là mảng đi nữa)
Em nghĩ bài này anh nên nghiên cứu VBA đi, cái gì dễ thì mình làm anh ạ. Em kinh nghiệm rồi, công thức khủng đưa vào file chỉ phát cáu vì ngồi chờ nó update, không thực tế cho lắm.
=RIGHT(D5,LEN(D5)-LOOKUP(1,-MID(D5,ROW($1:$99),1),ROW($1:$99)))-LOOKUP(1,-MID(D5,ROW($1:$99),1),ROW($1:$99)Nó ở chỗ này nè:
[FONT=Courier New][COLOR=#0000bb]MIN[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]FIND[/COLOR][COLOR=#007700]({[/COLOR][COLOR=#0000bb]0[/COLOR][COLOR=#007700],[/COLOR][COLOR=#0000bb]1[/COLOR][COLOR=#007700],[/COLOR][COLOR=#0000bb]2[/COLOR][COLOR=#007700],[/COLOR][COLOR=#0000bb]3[/COLOR][COLOR=#007700],[/COLOR][COLOR=#0000bb]4[/COLOR][COLOR=#007700],[/COLOR][COLOR=#0000bb]5[/COLOR][COLOR=#007700],[/COLOR][COLOR=#0000bb]6[/COLOR][COLOR=#007700],[/COLOR][COLOR=#0000bb]7[/COLOR][COLOR=#007700],[/COLOR][COLOR=#0000bb]8[/COLOR][COLOR=#007700],[/COLOR][COLOR=#0000bb]9[/COLOR][COLOR=#007700]},[/COLOR][COLOR=#0000bb]A1[/COLOR][COLOR=#007700]&[/COLOR][COLOR=#dd0000]"0123456789"[/COLOR][COLOR=#007700])[/COLOR][/FONT]
