摘要： 使用如下的VBA代码，您就可以在Excel中，统计某个字符或某个数字，甚至是某个字符串，在某个数据区域范围内，所出现的次数，即出现几次，或称为有几个。 代码如...
使用如下的VBA代码，您就可以在Excel中，统计某个字符或某个数字，甚至是某个字符串，在某个数据区域范围内，所出现的次数，即出现几次，或称为有几个。
代码如下，是VBA宏代码。
Set myb = CreateObject("scripting.dictionary"): myb("数字") = "次数"
Set rng = Application.InputBox("选择要统计的区域:", Type:=8)
ActiveSheet.Cells.Interior.ColorIndex = 0
rng.Interior.ColorIndex = 3
For Each rng1 In rng
myb(rng1.Value) = Application.WorksheetFunction.CountIf(rng, rng1)
excel中的Evaluate用法
excel中的Evaluate用法 excel中的Evaluate函数，不同于普通函数。因为Evaluate是一个宏表函数，所以，不能直接在单元格中使用Evaluate函数。 如果需要使用Evaluate函数，需要先定义后才能使用。 该函数的功能是：把表达式转换为结果。 Evaluate函数的用法： ①用法一 1、选中d2,然后是菜单操作：插入→名称→定义,在对话框中的“在当前工作薄中的名称”处输入一个名称，比如MyNum(随便输入)，在“引用位置”处输入=evaluate(c2),确定。 2、在d2中输
Next
Set rng3 = Application.InputBox("选择结果输出地:", Type:=8)
With rng3
.Resize(myb.Count) = Application.Transpose(myb.keys)
.Offset(, 1).Resize(myb.Count) = Application.Transpose(myb.items)
End With
Set myb = Nothing: Set rng3 = Nothing
End Sub
Excel不常用的函数MAXA的语法及使用方法
Excel不常用的函数MAXA的语法及使用方法 函数名称：MAXA 函数功能：返回数据集中的最大数值。 函数特性：它与MAX的区别在于将文本值和逻辑值(如TRUE和FALSE)作为数字参与计算。而MAX只计算数字。 函数语法：MAXA(value1，value2，...) 参数介绍：Value1，Value2，...为需要从中查找最大数值的1到30个参数。 实例一： 如果A1:A5包含0、0.2、0.5、0.4和TRUE，则：MAXA(A1:A5)返回1。 实例二： 如果A1:A5包含1，2，9，大众计算
