Tìm Công thức để tìm số ID duy nhất (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
N

ninhmoon

Thành viên tiêu biểu
Tham gia
3/3/14
Bài viết
525
Được thích
48
Em gửi!
Em có file gồm 12 tháng lương
Nhưng Em muốn tìm giá trị số ID là duy nhất trong 12 tháng
nhưng tháng 12 vẫn để nguyên thứ tự của tháng 12 còn các số ID khác không có hoặc không trùng ở tháng 12 sẽ được đẩy xuống dưới tháng 12

http://www.mediafire.com/file/ieh88nc20sqtywj/Hoi.xlsx
Cảm ơn ạ.
 
ninhmoon đã viết:
Em gửi!
Em có file gồm 12 tháng lương
Nhưng Em muốn tìm giá trị số ID là duy nhất trong 12 tháng
nhưng tháng 12 vẫn để nguyên thứ tự của tháng 12 còn các số ID khác không có hoặc không trùng ở tháng 12 sẽ được đẩy xuống dưới tháng 12

http://www.mediafire.com/file/ieh88nc20sqtywj/Hoi.xlsx
Cảm ơn ạ.
Nhấp chuột vào đây để mở rộng...

Bạn chạy thử cái này:
PHP: 
Public Sub GPE()
Dim Dic As Object, Tem As String, sArr(), dArr(), I As Long, K As Long, N As Long
Set Dic = CreateObject("Scripting.Dictionary")
sArr = Range("E4445:E4890").Value: N = UBound(sArr)
For I = 1 To N
    Dic.Item(sArr(I, 1)) = ""
Next I
sArr = Range("A5:E4443").Value: N = UBound(sArr)
ReDim dArr(1 To N, 1 To 4)
For I = 1 To N
    Tem = sArr(I, 5)
    If Tem <> Empty And Not Dic.Exists(Tem) Then
        K = K + 1: Dic.Item(Tem) = ""
        dArr(K, 1) = sArr(I, 1): dArr(K, 2) = sArr(I, 2)
        dArr(K, 3) = sArr(I, 4): dArr(K, 4) = sArr(I, 5)
    End If
Next I
Range("AH4892").Resize(K, 4) = dArr
Set Dic = Nothing
End Sub
 
OK cảm ơn anh
Hay quá.
 
ninhmoon đã viết:
Em gửi!
Em có file gồm 12 tháng lương
Nhưng Em muốn tìm giá trị số ID là duy nhất trong 12 tháng
nhưng tháng 12 vẫn để nguyên thứ tự của tháng 12 còn các số ID khác không có hoặc không trùng ở tháng 12 sẽ được đẩy xuống dưới tháng 12

http://www.mediafire.com/file/ieh88nc20sqtywj/Hoi.xlsx
Cảm ơn ạ.
Nhấp chuột vào đây để mở rộng...
Bài này đơn giản, thì bạn chon tất cả ID của tháng 1->11 copy qua sheet khác rồi dùng chức năng Remove duplicate, sau đó Vlookup cái dữ liệu vừa remove duplicate xong với tháng 12, lọc những cái #N/A ra, copy rồi paste vào tháng 12 thôi,
Hoặc dùng CT này tại AK4891:
Mã: 
=INDEX($E$5:$E$4438,SMALL(IFERROR(MATCH(ROW($E$5:$E$4438)-4,NOT(ISNUMBER(MATCH($E$5:$E$4438,$E$4445:$E$4890,)))*(LEN($E$5:$E$4438)>5)*MATCH($E$5:$E$4438,$E$5:$E$4438,),),""),ROW(A1)))
Ctrl+Shift+Enter rồi fill xuống chừng nào lỗi thì dừng!!!
https://www.fshare.vn/file/6WU75UL7UE5A
 
Ba Tê đã viết:
Bạn chạy thử cái này:
PHP: 
Public Sub GPE()
Dim Dic As Object, Tem As String, sArr(), dArr(), I As Long, K As Long, N As Long
Set Dic = CreateObject("Scripting.Dictionary")
sArr = Range("E4445:E4890").Value: N = UBound(sArr)
For I = 1 To N
    Dic.Item(sArr(I, 1)) = ""
Next I
sArr = Range("A5:E4443").Value: N = UBound(sArr)
ReDim dArr(1 To N, 1 To 4)
For I = 1 To N
    Tem = sArr(I, 5)
    If Tem <> Empty And Not Dic.Exists(Tem) Then
        K = K + 1: Dic.Item(Tem) = ""
        dArr(K, 1) = sArr(I, 1): dArr(K, 2) = sArr(I, 2)
        dArr(K, 3) = sArr(I, 4): dArr(K, 4) = sArr(I, 5)
    End If
Next I
Range("AH4892").Resize(K, 4) = dArr
Set Dic = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...
Code này của thầy chạy ra mã 15110007, tháng 12 cũng có mã này!!![TABLE="width: 152"]
[TR]
[TD="width: 152, align: right"][/TD]
[/TR]
[/TABLE]


 
eke_rula đã viết:
Code này của thầy chạy ra mã 15110007, tháng 12 cũng có mã này!!![TABLE="width: 152"]
[TR]
[TD="width: 152, align: right"][/TD]
[/TR]
[/TABLE]
Nhấp chuột vào đây để mở rộng...

Tôi không kiểm tra hết cột ID, nó không chỉ có Number mà còn có String như "Mã", "MS" ....
Kiểm tra lại Sub này coi sao, dữ liệu cột E không chuẩn!
PHP: 
Public Sub GPE()
Dim Dic As Object, Tem As Variant, sArr(), dArr(), I As Long, K As Long, N As Long
Set Dic = CreateObject("Scripting.Dictionary")
sArr = Range("E4445:E4890").Value: N = UBound(sArr)
For I = 1 To N
    If sArr(I, 1) <> Empty And IsNumeric(sArr(I, 1)) Then Dic.Item(sArr(I, 1)) = ""
Next I
sArr = Range("A5:E4443").Value: N = UBound(sArr)
ReDim dArr(1 To N, 1 To 4)
For I = 1 To N
    Tem = sArr(I, 5)
    If Tem <> Empty And IsNumeric(Tem) And Not Dic.Exists(Tem) Then
        K = K + 1: Dic.Item(Tem) = ""
        dArr(K, 1) = sArr(I, 1): dArr(K, 2) = sArr(I, 2)
        dArr(K, 3) = sArr(I, 4): dArr(K, 4) = sArr(I, 5)
    End If
Next I
Range("AH4892").Resize(5000, 4).ClearContents
Range("AH4892").Resize(K, 4) = dArr
Set Dic = Nothing
End Sub
 
Lần chỉnh sửa cuối:
eke_rula đã viết:
Bài này đơn giản, thì bạn chon tất cả ID của tháng 1->11 copy qua sheet khác rồi dùng chức năng Remove duplicate, sau đó Vlookup cái dữ liệu vừa remove duplicate xong với tháng 12, lọc những cái #N/A ra, copy rồi paste vào tháng 12 thôi,
Hoặc dùng CT này tại AK4891:
Mã: 
=INDEX($E$5:$E$4438,SMALL(IFERROR(MATCH(ROW($E$5:$E$4438)-4,NOT(ISNUMBER(MATCH($E$5:$E$4438,$E$4445:$E$4890,)))*(LEN($E$5:$E$4438)>5)*MATCH($E$5:$E$4438,$E$5:$E$4438,),),""),ROW(A1)))
Ctrl+Shift+Enter rồi fill xuống chừng nào lỗi thì dừng!!!
https://www.fshare.vn/file/6WU75UL7UE5A
Nhấp chuột vào đây để mở rộng...
Cũnglà
một ý hay
nhưng mà nó sẽ không theo thứ tự khi tháng 12 vẫn để nguyên các tổ và giữ đúng vị trí đó.
 
Ba Tê đã viết:
Tôi không kiểm tra hết cột ID của bạn, nó không chỉ có Number mà còn có String như "Mã", "MS" ....
Kiểm tra lại Sub này coi sao, dữ liệu không chuẩn!
PHP: 
Public Sub GPE()
Dim Dic As Object, Tem As Variant, sArr(), dArr(), I As Long, K As Long, N As Long
Set Dic = CreateObject("Scripting.Dictionary")
sArr = Range("E4445:E4890").Value: N = UBound(sArr)
For I = 1 To N
    If sArr(I, 1) <> Empty And IsNumeric(sArr(I, 1)) Then Dic.Item(sArr(I, 1)) = ""
Next I
sArr = Range("A5:E4443").Value: N = UBound(sArr)
ReDim dArr(1 To N, 1 To 4)
For I = 1 To N
    Tem = sArr(I, 5)
    If Tem <> Empty And IsNumeric(Tem) And Not Dic.Exists(Tem) Then
        K = K + 1: Dic.Item(Tem) = ""
        dArr(K, 1) = sArr(I, 1): dArr(K, 2) = sArr(I, 2)
        dArr(K, 3) = sArr(I, 4): dArr(K, 4) = sArr(I, 5)
    End If
Next I
Range("AH4892").Resize(K, 4) = dArr
Set Dic = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...

Dạ vâng ạ.
Em chỉ lấy dữ liệu dạng number còn dạng string, MS, mã số.
Em ko lấy.
Cảm ơn bác.
 
Ba Tê đã viết:
Tôi không kiểm tra hết cột ID của bạn, nó không chỉ có Number mà còn có String như "Mã", "MS" ....
Kiểm tra lại Sub này coi sao, dữ liệu cột E không chuẩn!
PHP: 
Public Sub GPE()
Dim Dic As Object, Tem As Variant, sArr(), dArr(), I As Long, K As Long, N As Long
Set Dic = CreateObject("Scripting.Dictionary")
sArr = Range("E4445:E4890").Value: N = UBound(sArr)
For I = 1 To N
    If sArr(I, 1) <> Empty And IsNumeric(sArr(I, 1)) Then Dic.Item(sArr(I, 1)) = ""
Next I
sArr = Range("A5:E4443").Value: N = UBound(sArr)
ReDim dArr(1 To N, 1 To 4)
For I = 1 To N
    Tem = sArr(I, 5)
    If Tem <> Empty And IsNumeric(Tem) And Not Dic.Exists(Tem) Then
        K = K + 1: Dic.Item(Tem) = ""
        dArr(K, 1) = sArr(I, 1): dArr(K, 2) = sArr(I, 2)
        dArr(K, 3) = sArr(I, 4): dArr(K, 4) = sArr(I, 5)
    End If
Next I
Range("AH4892").Resize(5000, 4).ClearContents
Range("AH4892").Resize(K, 4) = dArr
Set Dic = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...
Code hoạt động tốt rồi thầy!!!
 
ninhmoon đã viết:
Cũnglà
một ý hay
nhưng mà nó sẽ không theo thứ tự khi tháng 12 vẫn để nguyên các tổ và giữ đúng vị trí đó.
Nhấp chuột vào đây để mở rộng...
Chưa hiểu ý bạn ta, chỉ thêm những dữ liệu chưa có vào tháng 12 thôi mà, file của bạn cũng yêu cầu vậy mà!!!"Những ID của tháng 1-11 không có và không trùng ở tháng 12 sẽ được đưa xuống dưới"
 
Ba Tê đã viết:
Tôi không kiểm tra hết cột ID, nó không chỉ có Number mà còn có String như "Mã", "MS" ....
Kiểm tra lại Sub này coi sao, dữ liệu cột E không chuẩn!
PHP: 
Public Sub GPE()
Dim Dic As Object, Tem As Variant, sArr(), dArr(), I As Long, K As Long, N As Long
Set Dic = CreateObject("Scripting.Dictionary")
sArr = Range("E4445:E4890").Value: N = UBound(sArr)
For I = 1 To N
    If sArr(I, 1) <> Empty And IsNumeric(sArr(I, 1)) Then Dic.Item(sArr(I, 1)) = ""
Next I
sArr = Range("A5:E4443").Value: N = UBound(sArr)
ReDim dArr(1 To N, 1 To 4)
For I = 1 To N
    Tem = sArr(I, 5)
    If Tem <> Empty And IsNumeric(Tem) And Not Dic.Exists(Tem) Then
        K = K + 1: Dic.Item(Tem) = ""
        dArr(K, 1) = sArr(I, 1): dArr(K, 2) = sArr(I, 2)
        dArr(K, 3) = sArr(I, 4): dArr(K, 4) = sArr(I, 5)
    End If
Next I
Range("AH4892").Resize(5000, 4).ClearContents
Range("AH4892").Resize(K, 4) = dArr
Set Dic = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...
Vớicodetrên
Em muốn lấy thêm cột F nữa thì code sẽ được sửa như thế nào ạ.
 
ninhmoon đã viết:
Vớicodetrên
Em muốn lấy thêm cột F nữa thì code sẽ được sửa như thế nào ạ.
Nhấp chuột vào đây để mở rộng...

Cột F có gì đâu mà lấy? Trống trơn làm sao kiểm tra.
PHP: 
Public Sub GPE()
Dim Dic As Object, Tem As Variant, sArr(), dArr(), I As Long, K As Long, N As Long
Set Dic = CreateObject("Scripting.Dictionary")
sArr = Range("E4445:E4890").Value: N = UBound(sArr)
For I = 1 To N
    If sArr(I, 1) <> Empty And IsNumeric(sArr(I, 1)) Then Dic.Item(sArr(I, 1)) = ""
Next I
sArr = Range("A5:F4443").Value: N = UBound(sArr) 'E4443 -----> F4443'
ReDim dArr(1 To N, 1 To 5) ' 1 to 4 thành 1 to 5'
For I = 1 To N
    Tem = sArr(I, 5)
    If Tem <> Empty And IsNumeric(Tem) And Not Dic.Exists(Tem) Then
        K = K + 1: Dic.Item(Tem) = ""
        dArr(K, 1) = sArr(I, 1): dArr(K, 2) = sArr(I, 2)
        dArr(K, 3) = sArr(I, 4): dArr(K, 4) = sArr(I, 5)
        dArr(K, 5) = sArr(I, 6) 'Them dong nay'
    End If
Next I
Range("AH4892").Resize(5000, 5).ClearContents ' Thay 4 thanh 5'
Range("AH4892").Resize(K, 5) = dArr ' Thay 4 thanh 5'
Set Dic = Nothing
End Sub
 
Ba Tê đã viết:
Cột F có gì đâu mà lấy? Trống trơn làm sao kiểm tra.
PHP: 
Public Sub GPE()
Dim Dic As Object, Tem As Variant, sArr(), dArr(), I As Long, K As Long, N As Long
Set Dic = CreateObject("Scripting.Dictionary")
sArr = Range("E4445:E4890").Value: N = UBound(sArr)
For I = 1 To N
    If sArr(I, 1) <> Empty And IsNumeric(sArr(I, 1)) Then Dic.Item(sArr(I, 1)) = ""
Next I
sArr = Range("A5:F4443").Value: N = UBound(sArr) 'E4443 -----> F4443'
ReDim dArr(1 To N, 1 To 5) ' 1 to 4 thành 1 to 5'
For I = 1 To N
    Tem = sArr(I, 5)
    If Tem <> Empty And IsNumeric(Tem) And Not Dic.Exists(Tem) Then
        K = K + 1: Dic.Item(Tem) = ""
        dArr(K, 1) = sArr(I, 1): dArr(K, 2) = sArr(I, 2)
        dArr(K, 3) = sArr(I, 4): dArr(K, 4) = sArr(I, 5)
        dArr(K, 5) = sArr(I, 6) 'Them dong nay'
    End If
Next I
Range("AH4892").Resize(5000, 5).ClearContents ' Thay 4 thanh 5'
Range("AH4892").Resize(K, 5) = dArr ' Thay 4 thanh 5'
Set Dic = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...

OK
Cảm ơn Bác, Cột F có dữ liệu Tên
Em xóa đi, nhưng bản gốc thì Có.
Cảm ơn Bác nhiều dữ liệu đã được lọc ra khá tốt.
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

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

ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
5 6 7
Trả lời
661
Đọc
101K
pycckuu410
pycckuu410
Trungvt3
Get data từ From file excel workbook, load to xong dữ liệu thì Định dạng bị thay đổi so với dữ liệu từ file excel
Trả lời
1
Đọc
36
ptm0412
ptm0412
havanvinhqh
  • Đã giải quyết
Nâng cấp PM Excel để chạy mượt mà hơn
    • Ngạc nhiên
    • Cười
Trả lời
3
Đọc
171
SA_DQ
SA_DQ
phuongnam366377
Xây dựng RPC Server cho Excel / Access bằng Delphi – Tận dụng lại DLL và bảo mật mã nguồn
    • Thích
Trả lời
19
Đọc
1K
phuongnam366377
phuongnam366377
Nguyễn Duy Tuân
Hàm BS_TEXT trộn văn bản trong Excel với Add-in A-Tools v10
Trả lời
1
Đọc
447
Nguyễn Duy Tuân
Nguyễn Duy Tuân
ongke0711
Tạo thông báo nhắc nhở công việc (Excel + PowerShell + Task scheduler)
    • Thích
    • Yêu thích
Trả lời
15
Đọc
294
fdxfdcfd
F
SA_DQ
[2] Bình luận của Copilot về các ván cờ vua
Trả lời
17
Đọc
380
nguyentrongtien
nguyentrongtien
G
  • Question Question
Xin hỏi về Lỗi Path Not Found
Trả lời
11
Đọc
162
ongke0711
ongke0711
Maika8008
Liệt kê file trong 1 thư mục của Google Drive
Trả lời
0
Đọc
67
Maika8008
Maika8008
K
Tư vấn dùng máy tính chip AMD hay Intel
Trả lời
6
Đọc
297
vuvo_nhenhang
V
Maika8008
Dùng Apps Script gửi mail hàng loạt từ Google sheets
    • Thích
    • Yêu thích
Trả lời
6
Đọc
262
befaint
befaint
Tiger Nau
In dữ liệu trong word bị lỗi
Trả lời
0
Đọc
51
Tiger Nau
Tiger Nau
J
lỗi không lưu được dữ liệu trong file excel
Trả lời
3
Đọc
106
jenny 129
J
N
  • Question Question
Một lỗi rất khó chịu của VBA khi đọc chuỗi Unicode
    • Thích
Trả lời
3
Đọc
165
ongke0711
ongke0711
nvtnet
  • Question Question
Nhờ các bác giúp đỡ tạo chương trình sao chép dữ liệu vào thư mục con
Trả lời
0
Đọc
80
nvtnet
nvtnet
GPE-Trợ Lý
[ZOOM] POWER QUERY TRAINING (LỚP HỌC POWER QUERY THÁNG 04/2026) (1 người xem)
    • Thích
Trả lời
0
Đọc
3K
GPE-Trợ Lý
GPE-Trợ Lý
minhminh27
File excel thực hiện thao tác lưu trữ (Archive) email của outlook 365
Trả lời
0
Đọc
75
minhminh27
minhminh27
HeSanbi
Tự động hóa gửi Văn bản đi trong QLVBĐH thuộc hệ thống iOffice VNPT cho đơn vị hành chính công
    • Thích
Trả lời
0
Đọc
121
HeSanbi
HeSanbi
C
Tải kết quả xổ số 3 miền về excel
    • Thích
2
Trả lời
100
Đọc
21K
hungking
H
P
  • Question Question
Nhờ viết code VBA để thống kê các số hay ra cùng nhau
Trả lời
45
Đọc
10K
hungking
H
Xem thêm…

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

  • Không tìm thấy.

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom