Sub Loc5tu()
Dim Arr(), dArr()
Dim i As Long, j As Long, k As Long, d As Long
Arr = Range("A1:A" & [A65536].End(xlUp).Row).Value
ReDim dArr(1 To UBound(Arr), 1 To 1)
For i = 1 To UBound(Arr, 1)
Arr(i, 1) = Trim(Arr(i, 1))
k = 0
For j = 1 To Len(Arr(i, 1))
If Mid(Arr(i, 1), j, 1) = " " Then
k = k + 1
End If
If k >= 4 Then
d = d + 1
dArr(d, 1) = Arr(i, 1)
Exit For
End If
Next j
Next i
[B2].Resize(UBound(Arr), 1).Value = dArr
End Sub
đối với code này chỉ có tác dụng khi dữ liệu chuẩn cách nhau 1 khoảng chắn. Bé còi thử gõ bất kỳ 2 khoảng chắn xem . Code tèo luôn rồi
Anh có thể thêm hàm SuperTrim giống như anh tigertiger viết tại bài này SuperTrim để cắt khoảng chắn vô nghĩa (đổi TheStr As String thành TheStr As Variant để đưa Arr vào)
Sub Loc5tu()
Dim Arr(), dArr()
Dim i As Long, j As Long, k As Long, d As Long
Arr = Range("A1:A" & [A65536].End(xlUp).Row).Value
ReDim dArr(1 To UBound(Arr), 1 To 1)
For i = 1 To UBound(Arr, 1)
Arr(i, 1) = Application.WorksheetFunction.Trim(Arr(i, 1))
k = 0
For j = 1 To Len(Arr(i, 1))
If Mid(Arr(i, 1), j, 1) = " " Then
k = k + 1
End If
If k >3 Then
d = d + 1
dArr(d, 1) = Arr(i, 1)
Exit For
End If
Next j
Next i
[B2].Resize(UBound(Arr), 1).Value = dArr
End SubSub Loc5tu()
Dim Arr(), dArr()
Dim i As Long, k As Long
Arr = Range("A1:A" & [A65536].End(xlUp).Row).Value
ReDim dArr(1 To UBound(Arr), 1 To 1)
For i = 1 To UBound(Arr, 1)
Arr(i, 1) = Application.WorksheetFunction.Trim(Arr(i, 1))
If UBound(Split(Arr(i, 1), " ")) >3 Then
k = k + 1
dArr(k, 1) = Arr(i, 1)
End If
Next i
[B2].Resize(k, 1).Value = dArr
End SubOkie, chính xác là chỉ cần k>3 thôi, tại em cứ nghĩ là chỉ lọc ra những dòng có 5 từ thôi, hehe, giờ mới xem lại yêu cầu của tác giả là từ 5 từ trở lên...ẹc ẹc
nói gì thì nói code chính để giải quyết đề là đoạn này
Private Function SuperTrim(TheStr As Variant)
Dim Temp As String, DoubleSpase As String
DoubleSpase = Chr(32) & Chr(32)
Temp = Trim(TheStr)
Temp = Replace(Temp, DoubleSpase, Chr(32))
Do Until InStr(Temp, DoubleSpase) = 0
Temp = Replace(Temp, DoubleSpase, Chr(32))
Loop
SuperTrim = Temp
End FunctionThực ra vấn đề cũng là ở chỗ dữ liệu không chuẩn thôi, nếu làm bằng công thức thì đơn giản hơn bằng cách dùng hàm Trim để cắt khoảng trống vô nghĩa và dùng Index trích ra thế này mới chuẩn vì thao tác với nhiều dòng.
=IF(LEN(Sheet1!$B$1:$B$5)-LEN(SUBSTITUTE(Sheet1!$B$1:$B$5," ",""))>3,ROW(Sheet1!$B$1:$B$5),"")IF(LEN(Trim(Sheet1!$A$1:$A$5))-LEN(SUBSTITUTE(Trim(Sheet1!$A$1:$A$5)," ",""))>3,ROW(Sheet1!$A$1:$A$5),"")=IF(COUNT(DK)<ROW(1:1),"",INDEX($B$1:$B$5,SMALL(DK,ROW(1:1)))) = IF(COUNT(DK)<ROW(1:1),"",INDEX($A$1:$A$5,SMALL(DK,ROW(1:1))))Em hem thấy anh nhấn nút cảm ơn anh Tigertiger vì bài viết hay tại topic này nhé, hiiiiiiiiiii
Bài này có thể dùng Advanced Filter cái rụp ra ngay
Excel có hàm TRIM sao không dùng? Hàm TRIM trên Excel nó cắt tất tần tật mọi khoảng trắng thừa (bao nhiêu khoảng trắng liên tục nó cũng cắt hết chỉ chừa lại 1)
Bạn thử xem file đính kèm nhé, đầu tiên dùng hàm trim để chỉ giữ lại 1 ký tự cách giữa các từ, sau đó đếm số từ trong dòng, nếu >5 thì lấy...
nếu dùng công thức sao không làm 1 phát như thế này
=TRIM(IFERROR(OFFSET($A$1,SMALL(IF(LEN(TRIM($A$1:$A$24))-LEN(SUBSTITUTE($A$1:$A$24," ",""))>3,ROW($A$1:$A$24),""),ROW())-1,,,),""))Thanks anh, công thức trên của em cũng có thể gộp thành 1 vì vậy 1 phát hay 2 thì cũng thế thôi.hì hì. Hơn nữa em lại đang dùng Office 2003 nên hem có cái IFERROR (xài đồ cổ khổ thế đó) công thức viết ra dài ngoẵng, tác giả trông lại hoảng, he he.
