Convert formula COUNTIFS (1 người xem)

[tuanhuycntt]

Nhờ anh chị em giúp sửa code này giúp e với ạ.
Vì vùng đk của e mặc định ở Sheet khác nên viết formula Countifs thì phải viết nhiều lần và dài dòng nên e viết code chỉ cần thêm mỗi biến dk1, dk2,..... cho thao tác nhanh
VD: ở Sheet1 có các dk tại ô A1, A2, A3, A4
[A2] = Countif(A1, A2, A3, A4)

Nếu code đến cả 4 ĐK thì ok. Nhưng chỉ muốn xét 1, 2 hoặc 3 ĐK mà vẫn dùng code ntn thì sửa kiểu gì được ạ?

VD:
[A3] = Countif (A1, A2, A3, 0)
[A4] = Countif (A1, A2, 0, A4)

Em có thêm điều kiện để xét cho RngDK3 và RngDK4 nhưng code không chạy.

if RngDK4 = 0 then 
wCountif = WorksheetFunction.CountIfs(VungSosanhDK1, RngDK1, VungSosanhDK2, RngDK2, VungSosanhDK3, RngDK3)
end if

Public Function wCountif(RngDK1 As Range, RngDK2 As Range, Rng DK3 as Range, Rng DK4 as Range)
    Dim VungSosanhDK1 As Range
    Dim VungSosanhDK2 As Range
    Dim VungSosanhDK3 As Range
    Dim VungSosanhDK4 As Range
    Set VungSosanhDK1 = Sheet2.Range("A1:A" & Sheet2.Range("A" & Rows.Count).End(xlUp).Row)
    Set VungSosanhDK2 = Sheet2.Range("B1:B" & Sheet2.Range("B" & Rows.Count).End(xlUp).Row)
    Set VungSosanhDK3 = Sheet2.Range("C1:D" & Sheet2.Range("C" & Rows.Count).End(xlUp).Row)
    Set VungSosanhDK4 = Sheet2.Range("E1:E" & Sheet2.Range("D" & Rows.Count).End(xlUp).Row)
    
    wCountif = WorksheetFunction.CountIfs(VungSosanhDK1, RngDK1, VungSosanhDK2, RngDK2, VungSosanhDK3, RngDK3, VungSosanhDK4, RngDK4)
End Function