با سلام
برای شمارش بدون تکرار میشه از فرمول آرایه ای زیر استفاده کرد:
کد PHP:
=SUM(IFERROR(1/COUNTIF(B1:B20;B1:B20);0))
یا از تابع قدرتمند FREQUENCY استفاده کرد:
کد PHP:
=SUM(IF(FREQUENCY(MATCH(B1:B20;B1:B20;0);MATCH(B1:B20;B1:B20;0))>0;1))
حالا چنانچه بخواهید از کد های vba استفاده کنید میتونید از روش Evaluate استفاده کنید.
کد:
Sub CountUnique()
Dim result1, result2 As Integer
result1 = Application.Evaluate("=SUM(IFERROR(1/COUNTIF(b1:b20,b1:b20),0))")
result2 = Application.Evaluate("=SUM(IF(FREQUENCY(MATCH(B1:B20,B1:B20,0),MATCH(B1:B20,B1:B20,0))>0,1))")
Range("f4").Value = result1
Range("f5").Value = result2
End Sub
علاقه مندی ها (Bookmarks)