Quá hay. Cái này áp dụng thành coongluoon. em cảm ơn anh
Không dùng đến Find and Replace ạ
Khó hiểu thế bác. File của e đây
Dùng VBA rất tiện lợi và khả năng tùy biến cao. Tuy nhiên có không ít người chưa biết đến VBA. Vậy nên mình tham khảo cách dùng hàm thông thường đủ chức năng như hàm tự tạo của bạn. Bạn xem tham khảo và góp ý nhé!
Có nhất nhiết trích dẫn bài của bác ấy không nhỉ?
D4=TRIM(RIGHT(SUBSTITUTE(TRIM(B4)," ",REPT(" ",50)),30))C4=LEFT(TRIM(B4),LEN(TRIM(B4))-LEN(D4)-1)
'Hoặc:
C4=LEFT(TRIM(B4),LEN(TRIM(B4))-LEN(TRIM(RIGHT(SUBSTITUTE(TRIM(B4)," ",REPT(" ",50)),30)))-1)Như anh "Đỗ Phi Đencasstro" (trên mạng) hoặc những cái tên dài trên 7 ký tự thì hàm này lại không dùng được rồi
Ôi hay quá! Cảm ơn bạn nhiều nhé!
Bác xem trim(B4) có thể bỏ hàm này được không?
Chỗ này để phòng trường hợp người ta nhập thừa khoảng trắng ở cuối ấy.
Ở hàm lấy tên ý:
H2="Cửa hàng:"&C2&"Mã cửa hàng"&B2&"Địa chỉ"&D2&","&E2&","&F2&","&G2
Tách tên như bạn là xưa rồi!
A1=MorrisonFaith
B1=LEFT(A1,MATCH(,INDEX(N(EXACT(LOWER(MID(A1,ROW($2:$100),1)),MID(A1,ROW($2:$100),1))),),))
C1=MID(A1,LEN(B1)+1,100)
Xin bạn giúp đở 1 file excel mình không biết làm sao cho hàm nó chạy
Anh @Phan Thế Hiệp đã làm đúng theo yêu cầu của bạn rồi mà. Do bạn không chịu gửi file lên.
=LEFT(A1,MATCH(1,--(CODE(MID(A1&"A",ROW($2:$99),1))<91),))
Bạn dùng code này xem đúng không nhé.
Sub tach()
Dim arr, i As Long, a As Long, arr1, T, LR As Long
With Sheet1
LR = .Range("A" & Rows.Count).End(xlUp).Row
arr = .Range("A2:A" & LR).Value
ReDim arr1(1 To UBound(arr, 1), 1 To 100)
For i = 1 To UBound(arr, 1)
a = 0
arr(i, 1) = Replace(arr(i, 1), ":", "|")
For Each T In Split(arr(i, 1), "|")
a = a + 1
arr1(i, a) = T
Next
Next i
.Range("B2").Resize(LR, 100).ClearContents
.Range("B2").Resize(i - 1, 100).Value = arr1
End With
End SubRất cảm ơn bạn
Cho dữ liệu vào Như bạn rồi bấm nút tách thế là xong cần gì biết code.
Tôi làm được rồi - cảm ơn bạn nhiều
Many thanks Đại ca. Cái này áp dụng tổng quát được luôn ấy
Cảm ơn anh
Thêm một cách nửa cho bạn.Many Cảm ơn Đại ca. Cái này áp dụng tổng quát được luôn ấy.Này nếu nói hiểu thì em hiểu được nhưng để nghĩ ra công thức thì em chưa tới trình
=TRIM(RIGHT(SUBSTITUTE(A1;" ";REPT(" ";200));200))Thêm cách nữa để bạn tham khảo cho vui:Many Cảm ơn Đại ca. Cái này áp dụng tổng quát được luôn ấy.Này nếu nói hiểu thì em hiểu được nhưng để nghĩ ra công thức thì em chưa tới trình
B1=MID(A1,1/LOOKUP(2,1/FIND(" ",A1,ROW($1:$50)))+1,50)
Cho cái file có nhiều dữ liệu lên coi.
Không phải file của em. Nhưng tại em muốn coi thử nên tạo thử như vậy để xem code và học ạ
chạy thử code này
được 1 lúc lại lỗiSub abc()
Dim Nguon
Dim Kq
Dim i, j, k, t
Nguon = Sheet1.Range("A2:A4")
ReDim Kq(1 To UBound(Nguon), 1 To 3)
For i = 1 To UBound(Nguon)
k = ""
For j = 2 To Len(Nguon(i, 1))
If IsNumeric(Mid(Nguon(i, 1), j, 1)) = False Then
k = k & Mid(Nguon(i, 1), j, 1)
Else
If IsNumeric(Mid(Nguon(i, 1), j - 1, 1)) = False Then
Exit For
End If
End If
Next j
Kq(i, 2) = k
t = Split(Replace(Nguon(i, 1), k, " "))
Kq(i, 1) = t(0)
Kq(i, 3) = t(1)
Next i
Sheet1.Range("B2:D4") = Kq
End SubThử xem file này nhé.
Code khác
Sub ABC()
Dim sArr(), Res()
Dim i&, jD&, jC&, n
sArr = Sheet1.Range("A2", Sheet1.Range("A1000000").End(xlUp)).Value
ReDim Res(1 To UBound(sArr), 1 To 3)
For i = 1 To UBound(sArr)
n = Len(sArr(i, 1))
jD = 0: jC = 0
For j = 2 To n
If IsNumeric(Mid(sArr(i, 1), j, 1)) = False And jD = 0 Then jD = j
If IsNumeric(Mid(sArr(i, 1), j, 1)) And jD > 0 Then
jC = j: Exit For
End If
Next j
Res(i, 1) = Mid(sArr(i, 1), 1, jD - 1)
Res(i, 2) = Mid(sArr(i, 1), jD, jC - jD)
Res(i, 3) = Mid(sArr(i, 1), jC, n - jC + 1)
Next i
Sheet1.Range("B2:D2").Resize(UBound(Res)) = Res
End SubB2=LOOKUP(1E+36,--LEFT(A2,ROW(INDIRECT("1:"&LEN(A2)))))
C2=MID(A2,LOOKUP(10^10,ROW(INDIRECT("1:"&LEN(A2)))/--(ISNUMBER(--MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1))=FALSE)),1)
D2=LOOKUP(1E+36,--RIGHT(A2,ROW(INDIRECT("1:"&LEN(A2)))))
Em Vân thử dùng cách này mong anh Hiếu góp ý thêm ạ
Sub Main()
Call Cot_1
Call Cot_3
Call Cot_2
End Sub
Sub Cot_2()
With CreateObject("VBScript.RegExp")
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
.Global = True
.Pattern = "\d"
Sheet1.Cells(i, 3) = .Replace(Sheet1.Cells(i, 1), "")
Next
End With
End Sub
Sub Cot_3()
With CreateObject("VBScript.RegExp")
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
.Global = True
.Pattern = ".*\D"
Sheet1.Cells(i, 4) = .Replace(Sheet1.Cells(i, 1), "")
Next
End With
End Sub
Sub Cot_1()
With CreateObject("VBScript.RegExp")
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
.Global = True
.Pattern = "\D.*"
Sheet1.Cells(i, 2) = .Replace(Sheet1.Cells(i, 1), "")
Next
End With
End SubĐược và ngắn gọn hơn, nhưng mình không thích dùng
cảm ơn bạn nhiều, kết quả đúng như mình mong đợi nhưng bạn viết VBA nên mình không hiểu được, nhưng dù sao cũng cảm ơn bạn lần nữa
hay quá bạn ơi, công thức đơn giản, dễ dùng, chỉ cần cắt khoản trắng ở ô nguồn nữa là kết quả ok hết, thanks
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then
Exit Sub
Else
Select Case Range("A1")
Case Is = 60
Range("B1").Value = "A"
Case Is = 55
Range("B1").Value = "B"
Case Is = 50
Range("B1").Value = "C"
Case Is = 45
Range("B1").Value = "D"
Case Is = 40
Range("B1").Value = "E"
End Select
End If
End Sub
B1=TRIM(LEFT(SUBSTITUTE(TRIM(A1)," ",REPT(" ", 100)),150))
C1=MID(TRIM(A1),LEN(B1)+2,LEN(A1))"Làm được" cái mốc xì. Bạn chưa biết thớt này, chuyên gia được voi đòi tiên, một khi có đáp án rồi rồi sẽ thêm 1 mớ đòi hỏi nữa.
www.giaiphapexcel.com
Em gửi bài xong mới để ý, lỡ rồi định xóa lại thôi..
em gửi bài rồi anh phuoccam mới nói em biết, lần sau em rút kinh nghiệm ạ!"Làm được" cái mốc xì. Bạn chưa biết thớt này, chuyên gia được voi đòi tiên, một khi có đáp án rồi rồi sẽ thêm 1 mớ đòi hỏi nữa.
Xem ở dưới đây, bài #10 (nới rộng yêu cầu), và bài #18 (đòi hỏi tốc độ)
Lấy số từ trong nội dung câu
Thân ái chào anh chị và các bạn! Xin giúp đỡ tôi vấn đề sau: Trong ô A1 có nội dung "Anh chẳng trở về thì anh đi đi anh nhé!" 1_Trường hợp 1: ở ô A2 Chỉ lấy 2 từ đầu "Anh chẳng" trong nội dung nêu trên (ô A1) Không xét đến ký tự mà chỉ luôn quy định lấy 02 từ đầu tiên 2_Trường hợp 2: ở ô A3 bỏ 2...
Tôi chưa nói đến chuyện nhiều bài.
Công thức
=TRIM(MID(SUBSTITUTE(A1,"-",REPT(" ",100),3),FIND("-",A1)+1,100))cảm ơn bạn rất nhiều!!!
Cái đó không khó. Cái khó là làm sao biết một từ là lót hay họ kép.
Flash Fill dùng cho phiên bản excel 2013 trở về sau. Hiện tại còn rất nhiều người chưa dùng tới phiên bản 2013 này anh à.
- Tôi đồng ý về hạn chế về phần version của excel, từ 2013 mới có tính năng này
Woa, công thức thật ....tuyệt vời
Công thức của dân chuyên IT của FPT thì đẳng cấp rồi.
Vậy hả.
1 công thức mà " giá thành đắt nhất " 3 công thức e cháy túi
Nếu có chuyện "giá thành" thì công thức đâu có xài được. Chưa được phép mà xài là vi phạm luật sản phẩm trí tuệ.
Cái này có phải tách họ tên đâu ta.Mà file không có thì làm gì.Hay cần đánh dữ liệu cho bạn rồi viết code.
Mình đã cập nhật file lên bài viết. Bạn có ý tưởng nào help mình không ?
| Ho & Ten | Mã | ||||||||||||||||||
| Trịnh Dục Luân | LuanTD | ||||||||||||||||||
| Trần Đức Loạn | ?LoanTD | ||||||||||||||||||
| Trà Thị Mỹ Linh | ? LinhTTM | ||||||||||||||||||
| Công tằng Tôn Nữ Minh Nguyệt | ? NguyetCTTNM | ||||||||||||||||||
| Trịnh Thượng | ? ThuongT | ||||||||||||||||||
Thử code này.
Sub abc()
Dim i As Long, arr, dic As Object, ten As String, T, lr As Long, k As Long
Set dic = CreateObject("scripting.dictionary")
With Sheets("sheet1")
lr = .Range("A" & Rows.Count).End(xlUp).Row
arr = .Range("A2:B" & lr).Value
ReDim kq(1 To UBound(arr), 1 To 1)
For i = 1 To UBound(arr)
T = Split(" " & Application.Trim(arr(i, 1)), " ")
ten = Empty
For k = 1 To UBound(T) - 1
ten = ten & Left(T(k), 1)
Next k
ten = T(UBound(T)) & ten
If Not dic.exists(ten) Then
dic.Add ten, 1
kq(i, 1) = ten
Else
kq(i, 1) = ten & dic.Item(ten)
dic.Item(ten) = dic.Item(ten) + 1
End If
Next i
.Range("C2:C" & lr).Value = kq
End With
Set dic = Nothing
End SubSau khi add code này vào excel, thì làm sao để sử dụng bạn nhỉ ?
Tìm hiểu cách chạy code vba.
Mình đã thử sau khi add code VBA này vào, nhưng không thấy có thay đổi nào nhỉ ?
Option Explicit
Function Uname(cell As Range)
Dim i&, Ln As Range, st, ce As Range, max&
Set Ln = Range("C1:C" & cell.Row - 1)
st = Split(" " & cell.Value)
For i = 1 To UBound(st) - 1
Uname = Uname & LCase(Left(st(i), 1))' LCase: Họ và Lót viết thường. Nếu muốn viết hoa thì dùng Ucase
Next
Uname = st(UBound(st)) & Uname
If WorksheetFunction.CountIf(Ln, Uname & "*") = 0 Then Exit Function
For Each ce In Ln
st = Replace(ce, Uname, "")
If Len(st) = 0 Then
max = 1
ElseIf IsNumeric(st) Then max = max + 1
End If
Next
Uname = Uname & IIf(max = 0, "", max)
End FunctionHình như nó chưa khử dấu tiếng Việt, BeBo ơi!
