[已解决]如何获取数列中数字的个数

murphys1989

例：A列中任意位置填入任意数，如求其中值为1的单元格有多少，并将每个单元格的位置写入B列。

该如何做？

最佳答案

月排行榜 / 总排行榜

baksy

2016-8-2 14:17

附件

跳转到最佳答案楼层

望帝春心

模拟点数据上传个EXCEL文件吧。

baksy

附件

zyouong

工作簿1.rar (6.2 KB, 下载次数: 2)

2016-8-2 14:23 上传

点击文件名下载附件

murphys1989

1. {=IFERROR("A"&SMALL(IF(A$1:A$22=1,ROW($1:$22),""),ROW(A1)),"")}

复制代码

这个大括号是怎么加上的，是什么用处？
IF(A$1:A$22=1,ROW($1:$22),"") 能否解释一下 判断和真值 的代码含意。

望帝春心

murphys1989 发表于 2016-8-2 15:00
这个大括号是怎么加上的，是什么用处？
IF(A$1:A$22=1,ROW($1:$22),"") 能否解释一下 判断和真值 的代码含 ...

数组公式标志，不是手输入的，正常录入公式后按CTRL+SHIFT+回车就会出这个大括号。

望帝春心

VBA方法做一个，执行代码，结果返回到C列

1. Sub test()
   
2.     Dim i&
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     For i = 1 To Cells(1, 1).End(4).Row
   
5.         If Cells(i, 1) = 1 Then d(Cells(i, 1).Address(0, 0)) = ""
   
6.     Next
   
7.     s = d.keys
   
8.     [c1].Resize(d.Count, 1) = Application.Transpose(s)
   
9. End Sub

复制代码