求二进制数中1的个数

buciyuan · 发表于 2019-6-7 07:02

用这个自定义函数统计二进制数中1的个数，出现错误，请教各位老师。
Function cs2(aa As Range) As Integer
Dim l As Integer
l = Len(aa)
Dim i As Integer
For i = 1 To l
If Mid(aa, i, 1) = 1 Then
s = s + 1
End If
Next i
cs2 = s
End Function

Vicel · 发表于 2019-6-7 07:35

提供两种思路：
1.把二进制数中的0替换为空，用len函数求字符串长度
2.用split函数以“1”为分隔符把字符串分开，根据所得数组的下标来确认1的个数

719404338 · 发表于 2019-6-7 07:51

Sub t()
Dim i, j, k
For i = 2 To [a65536].End(3).Row
k = 0
For j = 1 To Len(Range("b" & i))
If Mid(Range("b" & i), j, 1) = 1 Then
k = k + 1
End If
Next j
Range("c" & i) = k
Next i
End Sub

复制代码

buciyuan · 发表于 2019-6-7 08:24

Vicel 发表于 2019-6-7 07:35
提供两种思路：
1.把二进制数中的0替换为空，用len函数求字符串长度
2.用split函数以“1”为分隔符把字符 ...

谢谢指点，受用了。

buciyuan · 发表于 2019-6-7 08:28

719404338 发表于 2019-6-7 07:51

代码思路是一样的，请问怎么自定义函数不行呢？谢谢

mzbao · 发表于 2019-6-7 08:55

你把你的函数名称改一下，你的函数名CS2和单元格CS2一样的，所以Excel估计分辨不出来了吧。你改个与单元格地址名称命名规则不一样的函数名称就可以了吧。

buciyuan · 发表于 2019-6-7 18:56

mzbao 发表于 2019-6-7 08:55
你把你的函数名称改一下，你的函数名CS2和单元格CS2一样的，所以Excel估计分辨不出来了吧。你改个与单元格 ...

直接解决问题，太感谢！

zopey · 发表于 2019-6-7 21:34

Function cs(aa As Range) As Integer
If aa.Value < 1 Then cs = 0: Exit Function Else a = Int(aa.Value)
Do
a = a And (a - 1)
cs = cs + 1
Loop Until a = 0
End Function

复制代码

zopey · 发表于 2019-6-7 21:55

CS、ct 公式对比，详见附件

1的个数.rar (13.46 KB, 下载次数: 10)

buciyuan · 发表于 2019-6-8 08:39

zopey 发表于 2019-6-7 21:55
CS、ct 公式对比，详见附件

狂赞！佩服！谢谢

		自动登录	找回密码
密码			免费注册

[求助] 求二进制数中1的个数