EXCEL 怎么用函数公式计数(去除重复项)
要好好学习,在用函数计算公式来计算。
如何在EXCLE中定义公式求的不同类别数组中的最大值或最小值?
做透视图就可以,需要时点右键刷新一下,公式也可以,但没必要一步步编,因同类数据不等长,不规则。
excle函数公式,不用数组
使用VBA,不用数组;
DimMyMaxRowAsInteger
DimThisRowNAsInteger
DimDRowNAsInteger
DimiAsInteger
DimjAsInteger
DimkAsInteger
DimTempAsInteger
WithExcel.Application.ActiveWorkbook
MyMaxRow=.Sheets("Sheet1").Range("D65535").End(xlUp).Row
'把数据去除元格从D迁移到G列
ThisRowN=1
DoWhile.Sheets("Sheet1").Cells(ThisRowN,4).Value=""
ThisRowN=ThisRowN 1
Loop
DRowN=ThisRowN-1
Fori=ThisRowNToMyMaxRow
If.Sheets("Sheet1").Cells(i,4).Value""Then
DRowN=DRowN 1
.Sheets("Sheet1").Cells(DRowN,7).Value=.Sheets("Sheet1").Cells(i,4).Value
EndIf
Nexti
'把数据按照排列写到H列
'先把数据从G列复制到H列
Fori=ThisRowNToDRowN
.Sheets("Sheet1").Cells(i,8).Value=.Sheets("Sheet1").Cells(i,7).Value
Nexti
'然后开始排序
Fori=ThisRowNToDRowN-1
k=i
Forj=i 1ToDRowN
If.Sheets("Sheet1").Cells(k,8).Value>.Sheets("Sheet1").Cells(j,8).ValueThen
k=j
EndIf
Nextj
IfkiThen
Temp=.Sheets("Sheet1").Cells(i,8).Value
.Sheets("Sheet1").Cells(i,8).Value=.Sheets("Sheet1").Cells(k,8).Value
.Sheets("Sheet1").Cells(k,8).Value=Temp
EndIf
Nexti
EndWith
在excel中如何用公式统计不重复的值的个数
假设你的数据在A2:A21,
统计数据个数(重复数据只计算1次)
=SUMPRODUCT(1/COUNTIF(A2:A21,A2:A21))