Thử dùng VBA nghe, Enable Macros rồi bấm nút.
Em có nhận được sự giúp đỡ của anh Tê ( về hàm VBE) nhưng em dốt quá nên không áp dụng được vào file của mình . anh có thể cố gắng giúp mình thêm 1 lần nữa được không . em cảm ơn anh
Cột E (SĐT) phải hoàn toàn giống nhau mới kể là trùng à nghe.
Híc! có thấy tên nào trùng và email nào đâu mà làm.
Trong File có 3 Name, muốn biết thì ấn Ctrl+F3 để xem nhé.
. chúc anh vui vẻ trong cuộc sốngB2=IF(ROW(1:1)<=COUNTIF($A$7:$A$354,$A$2), INDEX($B$7:$B$354,MATCH($A$2,OFFSET($A$6,IF(ISNUMBER(B1),B1,0)+1,,354-IF(ISNUMBER(B1),B1,0)-6),0))+IF(ISNUMBER(B1),B1,0),"")No=IF(ISNUMBER('DCM''s Fleet'!$B1),'DCM''s Fleet'!$B1,0)B1=IF(ROW(1:1)<=COUNTIF($A$7:$A$354,$A$2), INDEX($B$7:$B$354,MATCH($A$2,OFFSET($A$6,No+1,,354-No-6),0))+No,"")Trong file tôi gởi bài #13, bạn muốn tìm người nào thì nhập tên vào ô A1
Các anh ơi giúp em cái này với ạ.Em nghĩ mãi mà không ra
Em muốn lọc từng bác sỹ trong bảng rồi đếm số lượng các nghiệm pháp cho từng bác sỹ thì làm thế nào ạ
View attachment 121684
Bạn dùng SUMIFS nhé!Các anh ơi giúp em cái này với ạ.Em nghĩ mãi mà không ra
Em muốn lọc từng bác sỹ trong bảng rồi đếm số lượng các nghiệm pháp cho từng bác sỹ thì làm thế nào ạ
Bạn thử xem file xem. Lọc ra tên bác sĩ, sau đó tổng hợp các nghiệm pháp bác sĩ đó dùng. Và cuối cùng là ra số nghiệm pháp đó được dùng bao nhiêu lần
Thử dùng Pivot Table xem bạn, không biết có đúng ý bạn không?
Nếu bỏ cột số lượng đi thì bạn sử dụng countifs để đếm
Nếu vậy bạn dùng COUNTIFS
View attachment Lọc bs rồi đếm nghiệm pháp.xlsx
Bạn xem File đính kèm, muốn lọc tên nào thì bạn gõ tên đó vào ô I24
Cái này em dùng Advanced Filter cũng được mà anhTrả lời gì thế ku? file có công thức gì đâu mà bảo gõ vào I24........thì sao chạy ra cái gì được???
đã gõ tên Nguyễn Văn Sơn vào ô I24 và .... không có gì xảy ra ..... mà cho dù có cái gì xảy ra chăng nữa e cũng không phải ý đồ của người ở #34
Chết . Em nhầm thật, làm như vậy đúng là chưa thỏa mãn với ý đồ của tác giả. Thật xin lỗi.
Góp vui thêm 1 cách. Sort lại cột tên để các tên trùng được gần nhau không dùng cột phụ:
Mình dùng VBA, bạn mở File và nhấn nút "LỌC TRÙNG" nhé!
Option Explicit
Public Sub LocTrung()
Dim Dic As Object, sArr(), Kq(), WF As Object
Dim i As Long, j As Long, k As Long, d As Long, Lr As Long, dem As Long
Set Dic = CreateObject("Scripting.Dictionary"): Set WF = Application.WorksheetFunction
Lr = Sheet1.Range("D65536").End(xlUp).Row: sArr = Sheet1.Range("B9:E" & Lr)
ReDim Kq(1 To UBound(sArr), 1 To 3)
For i = 1 To UBound(sArr)
If Not Dic.Exists(sArr(i, 3)) Then
Dic.Add sArr(i, 3), 1
End If
Next i
For j = 1 To UBound(sArr)
If WF.CountIf(Sheet1.Range("D9:D" & Lr), sArr(j, 3)) > 1 Then
d = d + 1
For k = 1 To 3
Kq(d, k) = sArr(j, k + 1)
Next k
End If
Next j
Sheet1.Range("G9:I65536").ClearContents
Sheet1.Range("G9").Resize(d, 3) = Kq
Sheet1.Range("G9").Resize(d, 3).Sort key1:=Sheet1.Range("H9")
End Sublấy file bài #42 về mở lên bấm nút màu xanh biển có chữ lọc trùng là xong . việc đó quá khó chăng ?
Nếu dùng teamview thì gửi ID và Pas mình sửa giúp!
Bạn nên đưa cái danh sách khá dài đó ra 1 trang tính nào đó; Chứ kiểu nói lí thuyết không, sau khi đọc lại bài #13 thêm rồi cũng chả hiểu kết quả bạn muốn là gì.Em muốn lọc thông tin dựa trên mã bệnh nhân và sắp xếp liên tục nếu như bị trùng. Em thử cách ở #13 nhưng không khả thi vì chỉ lọc được từng mã. Trong khi em có 1 danh sách mã bệnh nhân khá dài cần lọc ra. Xin các bác chỉ giáo thêm
. Mình có đính kèm luôn cả file ở #13 cho các bác xem luôn thể.
Bác có thể giả sử 3 4 MBN giống thế để lọc ra không? Chứ file hơn 20,000 người, em cũng có biết cái nào có hay không có trong tổng số 180,000 người. Em bị giới hạn upload nên phải cắt bớt file đi
. Và bác biết có cách nào xử lý cái kí tự đó không? hay phải xử lý thủ công.
Bạn đưa file nên trang Web này sau đó copy đường link đưa nên đây.Bác có thể giả sử 3 4 MBN giống thế để lọc ra không? Chứ file hơn 20,000 người, em cũng có biết cái nào có hay không có trong tổng số 180,000 người. Em bị giới hạn upload nên phải cắt bớt file đi
Bác có thể giả sử 3 4 MBN giống thế để lọc ra không? Chứ file hơn 20,000 người, em cũng có biết cái nào có hay không có trong tổng số 180,000 người. Em bị giới hạn upload nên phải cắt bớt file đi
. Em đã upload xong nguyên file của nó rồi đây, Bác xem lại dùm nhé .
Những vấn đề của bạn đang là như sau:
Thử:
E7=IFERROR(INDIRECT(TEXT(MOD(AGGREGATE(15,6,(ROW($A$7:$A$13)*10^3+COLUMN($A:$C)+COUNTIF($A$7:$C$13,"<="&$A$7:$C$13)*10^8)/(COUNTIF($E$6:$E6,$A$7:$C$13)=0),1),10^8),"R000C000"),),"")
F7=COUNTIF($A$7:$C$13,E7)Vậy thử:
E7=INDIRECT(TEXT(MOD(MIN(IF((COUNTIF($E$6:$E6,$A$7:$C$13)=0),(ROW($A$7:$A$13)*10^3+COLUMN($A:$C)+COUNTIF($A$7:$C$13,"<="&$A$7:$C$13)*10^8))),10^8),"R000C000"),)
Nhìn cái công thức này cũng chẳng khác gì ma trận, thật là hại não.
Bản thân "Mảng" theo bài trên là một ma trận, nó có 2 chiều dọc và ngang.
Thêm 1 cách:
Sub abc()
Dim a, b, i&, j&, k&
With Sheet1
a = .Range("A7:C" & .Cells(Rows.Count, 3).End(3).Row).Value
End With
ReDim b(1 To UBound(a, 1) * 3)
Application.ScreenUpdating = False
For j = LBound(a, 2) To UBound(a, 2)
For i = LBound(a, 1) To UBound(a, 1)
If Not IsEmpty(a(i, j)) Then
k = k + 1
b(k) = a(i, j)
End If
Next i
Next j
With Sheet1
.Range("F6:G6") = Array("Ma", "SL")
.Range("F7").Resize(k).Value = Application.Transpose(b)
.Range("G6:G" & Range("F" & Rows.Count).End(3).Row).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = 1
.Range("J6").Consolidate Sources:=Array("Sheet1!R6C6:R1000C7"), Function:=xlSum, LeftColumn:=True
.Columns("F:G").ClearContents
End With
Application.ScreenUpdating = True
End SubThật sự là tui cứ nhìn cái công thức nào dài dài là hãi lắm luôn. nhất là bản thân nó đã là 1 hàm, xong nó lại cộng thêm mấy hàm khác nữa. Chắc xưa bạn học toán giỏi lắm.Bản thân "Mảng" theo bài trên là một ma trận, nó có 2 chiều dọc và ngang.
Bài toán xử lý Mảng có chung một kết cấu: Lập điều kiện trên từng phần tử của "ma trận", cái nào thỏa thì lấy ra, cái nào không thỏa thì lờ đi.
Như bài trên:
Làm việc với nó lâu ngày sẽ nhìn ra rất dễ dàng.
- Điều kiện lọc là: COUNTIF($E$6:$E6,$A$7:$C$13)=0
- Định vị trí cho từng phần tử: (ROW($A$7:$A$13)*10^3+COLUMN($A:$C)+COUNTIF($A$7:$C$13,"<="&$A$7:$C$13)*10^8)
- Dùng các hàm MIN() để trích lục phần tử thỏa điều kiện, và nhỏ nhất.
- Dùng MOD() để lấy số vị trí Dòng và Cột của phần tử thỏa đó.
- Dùng INDIRECT() để đến vị trí đó lấy kết quả.
Thân
Hồi phổ thông do học sớm 1 năm, nên ngu hơn bạn đồng môn, toán văn luôn 5-6, chỉ vừa đủ lên lớp là mừng rồi.
vậy bạn có ở SG không hay ở ngoài bắc thế? tui cũng thích công thức mảng, nhưng mà chỉ biết làm có hàm đơn thôi.
Về công thức "mảng" đòi hỏi một niềm đam mê cao độ, sự kiên nhẫn tìm tòi để hiểu nó, thì mới thuần phục nó được.
Khà Khà, "ăn cùng Mảng", "ngủ cùng Mảng", coi chừng bị đuổi ra sân "một Mình một Mảng"
hee, tui cám ơn nha. chỗ tôi nhiều cỏ non lắm, hy vọng có ngày gặp nhau làm chén rượu nhé!
Bài này của Bắc Sơn(Bắc Giang+Lạng Sơn)
Nhậu "gụ" thì phải kéo bè, kéo bạn mới "dui".
vậy có dịp nhất định phải gặp rồi. Thôi, chúc anh em buổi tối zui zẻ nha, tám ở đây lạc chủ đề là bị khóa đó.
Em muốn nhờ anh giúp một vần đề nữa đó là :
em muốn nhờ anh giúp một vấn đề nữa : Bây giờ em muốn ví dụ như ký tự A sẽ đếm được 4 lần và em muốn biết thêm là 4 kí tự đó nằm ở các ô nào trong mảng đó ạ. Thanhks anh nhiều.Bản thân "Mảng" theo bài trên là một ma trận, nó có 2 chiều dọc và ngang.
Bài toán xử lý Mảng có chung một kết cấu: Lập điều kiện trên từng phần tử của "ma trận", cái nào thỏa thì lấy ra, cái nào không thỏa thì lờ đi.
Như bài trên:
Làm việc với nó lâu ngày sẽ nhìn ra rất dễ dàng.
- Điều kiện lọc là: COUNTIF($E$6:$E6,$A$7:$C$13)=0
- Định vị trí cho từng phần tử: (ROW($A$7:$A$13)*10^3+COLUMN($A:$C)+COUNTIF($A$7:$C$13,"<="&$A$7:$C$13)*10^8)
- Dùng các hàm MIN() để trích lục phần tử thỏa điều kiện, và nhỏ nhất.
- Dùng MOD() để lấy số vị trí Dòng và Cột của phần tử thỏa đó.
- Dùng INDIRECT() để đến vị trí đó lấy kết quả.
Thân
Dạ, em vừa mới được biết Anh @Phan Thế Hiệp và Anh @quocgiacan là cùng một người.
Rất cảm ơn , nhưng thiệt tình không dám làm phiền bạn!
Thử:
G4=ADDRESS(INT(SMALL(IF($A$7:$C$13=$E7,ROW($A$7:$A$13)*10^3+COLUMN($A:$C)),COLUMN(A$1))/10^3),MOD(SMALL(IF($A$7:$C$13=$E7,ROW($A$7:$A$13)*10^3+COLUMN($A:$C)),COLUMN(A$1)),10^3),4)Bạn cứ đến Biên Hòa - Đồng Nai thì muốn cái gì cũng được, còn tổ chức nhậu là chuyện nhỏ (sẽ có đầy đủ các thành viên Biên Hòa để bạn giao lưu).
Em chưa "nghiện" nên chưa "khá" được món này anh ạ
Rất cảm ơn , nhưng thiệt tình không dám làm phiền bạn!
Có gì bạn gửi trong hộp thư riêng cho các anh em nha.
Chúc bạn ngày vui.
------------------------------------------------------------------------------------------------------------------------------------
Thử:
Kết thúc bằng Ctrl+Shift+Enter.Mã:G4=ADDRESS(INT(SMALL(IF($A$7:$C$13=$E7,ROW($A$7:$A$13)*10^3+COLUMN($A:$C)),COLUMN(A$1))/10^3),MOD(SMALL(IF($A$7:$C$13=$E7,ROW($A$7:$A$13)*10^3+COLUMN($A:$C)),COLUMN(A$1)),10^3),4)
Thân
sau khi xác định được các ô của kí tự cần tìm.Bây giờ em muốn lấy giá trị cách các ô đó 3 vị trí chẳng hạn. ví dụ như ô A7 có chứa kí tự A thì em muốn tìm giá bằng 5 tại ô A4 thì dùng hàm gì ạ.Rất cảm ơn , nhưng thiệt tình không dám làm phiền bạn!
Có gì bạn gửi trong hộp thư riêng cho các anh em nha.
Chúc bạn ngày vui.
------------------------------------------------------------------------------------------------------------------------------------
Thử:
Kết thúc bằng Ctrl+Shift+Enter.Mã:G4=ADDRESS(INT(SMALL(IF($A$7:$C$13=$E7,ROW($A$7:$A$13)*10^3+COLUMN($A:$C)),COLUMN(A$1))/10^3),MOD(SMALL(IF($A$7:$C$13=$E7,ROW($A$7:$A$13)*10^3+COLUMN($A:$C)),COLUMN(A$1)),10^3),4)
Thân
Sao bạn không hỏi 1 lần luôn, mà cứ hỏi ngắc từng chút vậy?
Già rồi chỉ còn nghiện món này cho lành mạnh. Em trẻ, còn nghiện được nhiều thứ khác.Em chưa "nghiện" nên chưa "khá" được món này anh ạ
Câu này hông...."lành mạnh" à nha, hông chơi nói "già này già nọ" à nha
Với các yêu cầu của bạn ( nếu còn nữa) cứ nói ra hết một lần dùng VBA xử nó cái "roẹt"
Mới viết bài ở Topic kia cách đây 18 phút (Xoá dữ liệu trùng lặp trong bảng). Đây là Link bài kia.
Bạn ơi!
Cảm ơn bạn nhiều, cách này thực sự hữu ích với người ko dành excel như mình!
