Lấy dữ liệu trùng của các ô nối lại với nhau

Liên hệ QC
V

vandia

Thành viên mới
Tham gia
18/5/19
Bài viết
29
Được thích
0
Chào các bạn!
Nhân ngày cuối tuần chúc các bạn một ngày nghỉ vui vẻ
Nhờ các bạn viết giúp hàm như file đính kèm
Xin cảm ơn các bạn
 

File đính kèm

  • Lấy dữ liệu trùng của các ô nối lại với nhau.xlsm
    9.3 KB · Đọc: 18
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Đây là hàm lấy trùng:
PHP: 
Public Function LayDuLieuTrung(ByVal s As String) As String
Dim lenS As Long, kyTu As String, temp As String
lenS = Len(s)
Do While lenS > 0
    kyTu = Left(s, 1)
    s = Replace(s, kyTu, "")
    If lenS - Len(s) > 1 Then
        temp = temp & "," & kyTu
    End If
    lenS = Len(s)
Loop
If Len(temp) > 0 Then LayDuLieuTrung = Mid(temp, 2)
End Function
Thêm hàm JoinText của ndu96081631 để nối chuỗi lại.

www.giaiphapexcel.com

Nối chuỗi theo điều kiện

Chào cả nhà! Mình làm bên Quy hoạch đất, trong bảng biểu có yêu cầu lấy các loại đất có diện tích. Mình gửi file nhờ mọi người giúp đỡ, trong file, cột màu đỏ là kết quả mình cần lấy dữ liệu! Cảm ơn cả nhà nhiều ạ.
www.giaiphapexcel.com www.giaiphapexcel.com
 
Upvote 0
lubu08 đã viết:
"936303161" => "9,3,6,1"
Nếu kết quả trả về là "1,3,6,9" có được không bạn?
Nhấp chuột vào đây để mở rộng...
Được bạn ơi
lubu08 đã viết:
View attachment 255080
bác nói e mới để ý :D
do dữ liệu của bạn ấy đã sai trước, em chỉ muốn hỏi là kết quả có lấy theo thứ tự không thôi :D
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn, mình bị nhầm không có số 9
Bài đã được tự động gộp:

Ba Tê đã viết:
Số 9 đâu có bị lặp?
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn mình bị nhầm số 9 không có
Bài đã được tự động gộp:

phuocam đã viết:
Đây là hàm lấy trùng:
PHP: 
Public Function LayDuLieuTrung(ByVal s As String) As String
Dim lenS As Long, kyTu As String, temp As String
lenS = Len(s)
Do While lenS > 0
    kyTu = Left(s, 1)
    s = Replace(s, kyTu, "")
    If lenS - Len(s) > 1 Then
        temp = temp & "," & kyTu
    End If
    lenS = Len(s)
Loop
If Len(temp) > 0 Then LayDuLieuTrung = Mid(temp, 2)
End Function
Thêm hàm JoinText của ndu96081631 để nối chuỗi lại.

www.giaiphapexcel.com

Nối chuỗi theo điều kiện

Chào cả nhà! Mình làm bên Quy hoạch đất, trong bảng biểu có yêu cầu lấy các loại đất có diện tích. Mình gửi file nhờ mọi người giúp đỡ, trong file, cột màu đỏ là kết quả mình cần lấy dữ liệu! Cảm ơn cả nhà nhiều ạ.
www.giaiphapexcel.com www.giaiphapexcel.com
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn, sao mình không sử dụng hàm được nhỉ?
 
Lần chỉnh sửa cuối:
Upvote 0
mình xin góp chút cốt
1615178443748.png
Mã: 
Function Trung(ParamArray args() As Variant) As String
    Dim i As Long
    Dim cell As Range
    For i = LBound(args) To UBound(args)
        If TypeName(args(i)) = "Range" Then
            For Each cell In args(i)
                Trung = Trung & Loc(cell.Value)
            Next cell
        Else
            Trung = Trung & Loc(args(i))
        End If
    Next i
    If Len(Trung) > 0 Then
        Trung = Mid(Trung, 2)
    Else
        Trung = "khong co"
    End If
End Function

Private Function Loc(cell As Variant) As String
    Dim dai As Long, kyTu As String, temp As String
    dai = Len(cell)
    Do While dai > 0
        kyTu = Left(cell, 1)
        cell = Replace(cell, kyTu, "")
        If dai - Len(cell) > 1 Then
            temp = temp & "," & kyTu
        End If
        dai = Len(cell)
    Loop
    If Len(temp) > 0 Then Loc = "-" & Mid(temp, 2)
End Function
 

File đính kèm

  • Lấy dữ liệu trùng của các ô nối lại với nhau.xlsb
    15.3 KB · Đọc: 5
Lần chỉnh sửa cuối:
Upvote 0
Google Sheets lèo cái được.

=TEXTJOIN(", ",true,UNIQUE(FILTER(mid(A1,row(INDIRECT("1:"&len(A1))),1),COUNTIF(mid(A1,row(INDIRECT("1:"&len(A1))),1),mid(A1,row(INDIRECT("1:"&len(A1))),1))>1)))

=ArrayFormula(TEXTJOIN(", ",true,query((QUERY(mid(A1,row(INDIRECT("1:"&len(A1))),1),"Select Col1,count(Col1) group by Col1",0)),"select Col1 where Col2>1",0)))

Bao giờ Excel mới 'nhớn' :p
 
Upvote 0
lubu08 đã viết:
mình xin góp chút cốt
View attachment 255087
Mã: 
Function Trung(ParamArray args() As Variant) As String
    Dim i As Long, s As String
    Dim cell As Range
    s = ""
    For i = LBound(args) To UBound(args)
        If TypeName(args(i)) = "Range" Then
            For Each cell In args(i)
                Trung = Trung & Loc(cell.Value)
            Next cell
        Else
            Trung = Trung & Loc(args(i))
        End If
    Next i
    If Len(Trung) > 0 Then
        Trung = Mid(Trung, 2)
    Else
        Trung = "khong co"
    End If
End Function

Private Function Loc(cell As Variant) As String
    Dim dai As Long, kyTu As String, temp As String
    dai = Len(cell)
    Do While dai > 0
        kyTu = Left(cell, 1)
        cell = Replace(cell, kyTu, "")
        If dai - Len(cell) > 1 Then
            temp = temp & "," & kyTu
        End If
        dai = Len(cell)
    Loop
    If Len(temp) > 0 Then Loc = "-" & Mid(temp, 2)
End Function
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn @lubu08 chuẩn đét rồi
Chúc bạn vui vẻ hạnh phúc
Bài đã được tự động gộp:

befaint đã viết:
Google Sheets lèo cái được.

=TEXTJOIN(", ",true,UNIQUE(FILTER(mid(A1,row(INDIRECT("1:"&len(A1))),1),COUNTIF(mid(A1,row(INDIRECT("1:"&len(A1))),1),mid(A1,row(INDIRECT("1:"&len(A1))),1))>1)))

=ArrayFormula(TEXTJOIN(", ",true,query((QUERY(mid(A1,row(INDIRECT("1:"&len(A1))),1),"Select Col1,count(Col1) group by Col1",0)),"select Col1 where Col2>1",0)))

Bao giờ Excel mới 'nhớn' :p
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn @befaint mình sẽ sử dụng hàm của bạn @lubu08
 
Upvote 0
befaint đã viết:
Google Sheets lèo cái được.

=TEXTJOIN(", ",true,UNIQUE(FILTER(mid(A1,row(INDIRECT("1:"&len(A1))),1),COUNTIF(mid(A1,row(INDIRECT("1:"&len(A1))),1),mid(A1,row(INDIRECT("1:"&len(A1))),1))>1)))

=ArrayFormula(TEXTJOIN(", ",true,query((QUERY(mid(A1,row(INDIRECT("1:"&len(A1))),1),"Select Col1,count(Col1) group by Col1",0)),"select Col1 where Col2>1",0)))

Bao giờ Excel mới 'nhớn' :p
Nhấp chuột vào đây để mở rộng...
1615179436779.png
1615179549732.png
Sao mình thử cả 2 công thức không được bạn ơi?
 
Upvote 0
befaint đã viết:
Dấu chấm phẩy. .
Nhấp chuột vào đây để mở rộng...
MÌnh đã làm được, nhưng công thức của bạn chưa đáp ứng được yêu cầu của chủ thớt.

"Với điều kiện là hàm lấy được các ô nằm cách xa nhau" -> bạn định xử lý trên GG Sheet thế nào với yêu cầu này?
 
Upvote 0
Thêm cách tham khảo dùng office365
Mã: 
=TEXTJOIN(",",,UNIQUE(FILTERXML("<a><b>"&TEXTJOIN("</b><b>",,MID(B3,SEQUENCE(LEN(B3)),1))&"</b></a>","//b[preceding::*=.]")))
or
=LET(a,MID(B3,SEQUENCE(LEN(B3)),1),TEXTJOIN(",",1,UNIQUE(IF(MMULT(N(a=TRANSPOSE(a)),SEQUENCE(LEN(B3))^0)>1,a,""))))
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

P
HÀM SUBTOTAL BỊ #VALUE
Trả lời
2
Đọc
32
phantuancauvan
P
phanmoi688
[Xin nhờ giúp đỡ] Cách đối chiếu dữ liệu giữa hai biểu
    • Thích
2
Trả lời
28
Đọc
386
VetMini
V
tby211
Lỗi 1004 vba khi tách file trắc nghiệm sang excel
Trả lời
0
Đọc
19
tby211
tby211
NguyenthiH
  • Question
Code lấy dữ liệu cho sheet!TonDau.
Trả lời
6
Đọc
143
NguyenthiH
NguyenthiH
test1986
  • Question
HELP! Sử dụng combobox để cập nhật dữ liệu trong file Excel
Trả lời
17
Đọc
508
ngochienbmt
N
Xem thêm…

Facebook

Giaiphapexcel.com

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom