如果某个数字下一行的左中右都是空格，返回0

桑榆非晚

如图，谢谢各位大神大佬们，在下实在不知道如何去做。我的是office 365版本。恳请各位各显神通，谢谢啦！

桑榆非晚

补充一下：表格里，每个空格都是带公式的哦

edwin11891

拉个火车：

1. =LET(s,B3:K16,t,HSTACK(s,s),b,REDUCE("",SEQUENCE(ROWS($3:$16)-1),LAMBDA(yy,y,VSTACK(yy,LET(a,MAP(SEQUENCE(COLUMNS(B:K)),LAMBDA(x,IF(INDEX(CHOOSEROWS(t,y),x)<>"",IF(OR(INDEX(CHOOSEROWS(t,y+1),x)<>"",INDEX(CHOOSEROWS(t,y+1),x-1)<>"",INDEX(CHOOSEROWS(t,y+1),x+1)<>""),1,0),1/0))),TOROW(a,3))))),DROP(b,1))

复制代码

leepoison

1. =MAP(FILTER(SEQUENCE(,10),ISNUMBER(B3:K3)),LAMBDA(x,IF(SUM(1*ISNUMBER(INDEX(B4:K4,,IF(x=10,x+{-1,0,-9},IF(x=1,x+{9,0,1},x+{-1,0,1})))))>0,1,0)))

复制代码

B12行这个8按你的循环闭环原则，应该是等于0，不懂为什么模拟数据是1

leepoison

=MAP(FILTER(SEQUENCE(,10),ISNUMBER(B3:K3)),LAMBDA(x,IF(SUM(1*ISNUMBER(INDEX(B4:K4,,IF(x=10,x+{-1,0,-9},IF(x=1,x+{9,0,1},x+{-1,0,1})))))>0,1,0)))

高山磐石

Sub SPAC() Dim I, J(3), K   For L = 3 To 15 K = 0      For I = 1 To 10              If I = 1 Then         J(1) = 10         J(2) = 1         J(3) = 2         GoTo 100         Else: End If              If I = 10 Then         J(1) = 9         J(2) = 10         J(3) = 1         GoTo 100         Else: End If              J(1) = I - 1         J(2) = I         J(3) = I + 1 100          If WorksheetFunction.IsNumber(Cells(L, I + 1)) = True Then         If Cells(L + 1, J(1) + 1) = "" And Cells(L + 1, J(2) + 1) = "" And Cells(L + 1, J(3) + 1) = "" Then             Cells(L, K + 16) = 0             Else             Cells(L, K + 16) = 1             End If                     K = K + 1     Else: End If               Next I  Next L  End Sub

高山磐石

Sub SPAC()
Dim I, J(3), K


For L = 3 To 15
K = 0

    For I = 1 To 10
   
        If I = 1 Then
        J(1) = 10
        J(2) = 1
        J(3) = 2
        GoTo 100
        Else: End If
   
        If I = 10 Then
        J(1) = 9
        J(2) = 10
        J(3) = 1
        GoTo 100
        Else: End If
   
        J(1) = I - 1
        J(2) = I
        J(3) = I + 1
100
   
    If WorksheetFunction.IsNumber(Cells(L, I + 1)) = True Then
        If Cells(L + 1, J(1) + 1) = "" And Cells(L + 1, J(2) + 1) = "" And Cells(L + 1, J(3) + 1) = "" Then
            Cells(L, K + 16) = 0
            Else
            Cells(L, K + 16) = 1
            End If
                    K = K + 1
    Else: End If
   
   
    Next I

Next L

End Sub

满坛皆为吾师

P3下拉

1. =TOROW(MAP(B3:K3,LAMBDA(x,IF(x="",i,COUNT(OFFSET(x,1,-1,,3))))),3)+(COUNT(K3,B4)>1)*{0,0,1}

复制代码

另外B12和B15下方都无值为什么是1

桑榆非晚

edwin11891 发表于 2024-9-6 23:25
拉个火车：

谢谢大神，我的是365版本，用什么样的公式啊，
我用WPS试了，B3:K16需要$$锁住吗，不锁的话，下拉后，下面就乱了啊
麻烦再解答一下，
谢谢您！

edwin11891

桑榆非晚 发表于 2024-9-8 18:20
谢谢大神，我的是365版本，用什么样的公式啊，
我用WPS试了，B3:K16需要$$锁住吗，不锁的话，下拉后，下 ...

不用锁，不用下拉，全部自动溢出的。WPS新版没问题，我用的就是WPS。