Tính tổng mã kh xuất hiện 1 lần (1 người xem)
- Thread starter newex
- Ngày gửi
Người dùng đang xem chủ đề này
be_09
Biên Hòa, Đồng Nai
- Tham gia
- 9/4/11
- Bài viết
- 9,972
- Được thích
- 9,882
- Nghề nghiệp
- Công chức
Bạn nên có 1 sheet chứa vài kết quả để mọi thành viên còn hiểu để giúp.
Tôi xem File xong chẳng hiểu bạn muốn thế nào luôn.
=SUMPRODUCT((COUNTIFS(A2:A20,A2:A20,A2:A20,">0")=1)*B2:B20)
e có để kết quả là 6237000 mà. ý em muốn là cột A chỉ lấy các giá trị xuất hiện 1 lần là ô màu trắng ( có màu là xuất hiện >1 lần) tổng thì lấy ở cột B
cảm ơn b. b giải thích hàm giúp em để e sử dụng những lần sau được ko ạ.
cảm ơn b. e có 1 ps là cột A vẫn điều kiện xuất hiện 1 lần và côt b chỉ tính tổng với giá trị > 200000 b giúp e với
Bài đã được tự động gộp:
cảm ơn b. b giải thích hàm giúp em để e sử dụng những lần sau được ko ạ.
Bài đã được tự động gộp:
cảm ơn b. e có 1 ps là cột A vẫn điều kiện xuất hiện 1 lần và côt b chỉ tính tổng với giá trị > 200000 b giúp e với
Lần chỉnh sửa cuối:
=SUMPRODUCT((COUNTIFS(A2:A20,A2:A20,A2:A20,">0")=1)*(B2:B20>200000)*B2:B20)
b ơi e dùng tham chiếu đến khoảng 250.000 dòng thì ko thể chạy được hàm có cách nào xử lý được không ạ?
và phát sinh thêm 1 chút nữa là e cần thêm: điều kiện cột A xuất hiện 1 lần count cột B với giá trị > 0 b đặt hàm giúp e với
befaint
|||||||||||||
- Tham gia
- 6/1/11
- Bài viết
- 14,583
- Được thích
- 19,788
Sao cứ xón xón vậy bạn? Nói hết luôn một lượt từ bài đầu tiên được không?
hết rồi b ạ . tại ô sếp nhiều yc ko nói hết. b giúp e với
Bạn quên cái vụ xón xón e b ko yc rồi sao?
Với 250.000 dòng nên dùng code VBA
hàm em còn chưa viết được VBA thì quá khó. b giúp em với. cảm ơn b nhiều
VBA đòi hỏi cấu trúc dữ liệu chính xác, cắt bớt dòng dữ liệu gởi file và yêu cầu chính xác lên
em gửi dữ liệu chuẩn có rõ điều kiện cần rồi b giúp e với. e cảm ơn b nhiều
Mã:
Function CountIfOne(ByVal MaRng As Range, ByVal SoTienRng As Range, ByVal DieuKien As Double)
Dim Ma(), SoTien(), i&, sRow&, ikey$, k&
sRow = MaRng.Rows.Count
If sRow <> SoTienRng.Rows.Count Then CountIfOne = "#Ref": Exit Function
If sRow = 1 Then
ReDim Ma(1 To 1, 1 To 1): Ma(1, 1) = MaRng(1, 1)
ReDim SoTien(1 To 1, 1 To 1): SoTien(1, 1) = SoTienRng(1, 1)
Else
Ma = MaRng: SoTien = SoTienRng
End If
Set MaRng = Nothing: Set SoTienRng = Nothing
With CreateObject("scripting.dictionary")
For i = LBound(Ma) To sRow
ikey = Ma(i, 1): ikey2 = "#" & ikey
If .exists(ikey) = False Then
If .exists(ikey2) = False Then
If SoTien(i, 1) >= DieuKien Then
k = k + 1
.Add ikey, 1
Else
.Add ikey, 0
End If
End If
Else
k = k - .Item(ikey)
.Add ikey2, ""
.Remove (ikey)
End If
Next i
End With
CountIfOne = k
End Function
Function SumIfOne(ByVal MaRng As Range, ByVal SoTienRng As Range, ByVal DieuKien As Double)
Dim Ma(), SoTien(), i&, sRow&, ikey$, Tong As Double
sRow = MaRng.Rows.Count
If sRow <> SoTienRng.Rows.Count Then SumIfOne = "#Ref": Exit Function
If sRow = 1 Then
ReDim Ma(1 To 1, 1 To 1): Ma(1, 1) = MaRng(1, 1)
ReDim SoTien(1 To 1, 1 To 1): SoTien(1, 1) = SoTienRng(1, 1)
Else
Ma = MaRng: SoTien = SoTienRng
End If
Set MaRng = Nothing: Set SoTienRng = Nothing
With CreateObject("scripting.dictionary")
For i = LBound(Ma) To sRow
ikey = Ma(i, 1): ikey2 = "#" & ikey
If .exists(ikey) = False Then
If .exists(ikey2) = False Then
If SoTien(i, 1) >= DieuKien Then
Tong = Tong + SoTien(i, 1)
.Add ikey, SoTien(i, 1)
Else
.Add ikey, 0
End If
End If
Else
Tong = Tong - .Item(ikey)
.Add ikey2, ""
.Remove (ikey)
End If
Next i
End With
SumIfOne = Tong
End Function
Bài viết mới nhất
- Question
