0 1 1 0 0 1 0 1 1 1 如上表,欲在execl 里用公式:求解连续的3个1前面,0和1的个数,不知怎么实

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/13 02:08:49

0 1 1 0 0 1 0 1 1 1 如上表,欲在execl 里用公式:求解连续的3个1前面,0和1的个数,不知怎么实现?
不过不好意思，可能我没说明白，0在A1，1在A2，1在A3。这些数字位于execl的一列，每个数字一个位置，我只要求出连续3个1之前的，1和0的总数即可

1.打开Excel,同时按下ALT+F11进入VBA编辑
2.插入新模块
3.复制粘贴以下代码
Public Function TripleOne(LookupRange As Range)
Dim arr As Variant
Dim i,j,aa,ab,ZeroCnt,OneCnt As Integer
aa = 0
ab = 0
ZeroCnt = 0
OneCnt = 0
Dim ReturnValue As String
ReturnValue = ""
arr = Split(LookupRange," ")
For i = 0 To UBound(arr) Step 1
If arr(i) = 1 And aa = 1 And ab = 1 Then
If i = 2 Then
ReturnValue = "111在首三位"
Else
For j = 0 To i - 3
If arr(j) = 0 Then
ZeroCnt = ZeroCnt + 1
ElseIf arr(j) = 1 Then
OneCnt = OneCnt + 1
End If
Next j
ReturnValue = "0*(" & ZeroCnt & ")|1*(" & OneCnt & ")"
End If
Exit For
ElseIf arr(i) = 1 And aa = 1 Then
ab = 1
ElseIf arr(i) = 1 Then
aa = 1
Else
aa = 0
ab = 0
End If
Next i
If ReturnValue = "" Then
TripleOne = "不包含111"
Else
TripleOne = ReturnValue
End If
End Function
4.假设你的数据在A1,那么在B1输入公式：
=TripleOne(A1)
返回信息:0*(m)|1*(n),m是0的个数,n是1的个数
或者返回“111在首三位”；“不包含111”

1至12数中在任意5个数的前面加负号,使这5个负数与其它7个正数的和为0? 在-44,-43,-42,…0,1,2,3,…2005,2006 这一串连续整数中,前100个数的和是多少?前100个如上面右图,将连续自然数1至2345排成一个长方形的数列,然后用一个矩形框任意框出16个数.请根据他们的组成在1,2,3,.100这一百个数前面添加正号或负号,使他们的和为0 在1,2,3,.,12这十二个数中的5个数的前面添加负号,使他们的和为0 给出1,2,3,.11,12这12个数,在其中某些数前面加负号后,使这12个数的和为0,请写出一个算式算式：1*2*3*...*100的积的末尾的连续0的个数有多少个? .1 2 3.11 12共十二个数试在某些数前面加负号使他们的和为0 在1到2012这12个数前面加正号或负号使它们的和为0 3个连续自然数如果3个数的平均数是X-1,那么着3个数的和是急!将1-2008这2008个数相乘,所得的积的末尾有多少个连续的0? 怎么在execl中让根号1 +(2%的平方）进行计算