从贴吧搬过来一个题，展开并去重~~~

cinlo

具体请看图和附件。。。

cinlo

预设公式长度211

tiger1976

Sub lll()

    Dim i As Integer, k As Integer, n As Integer
    Dim rng As Range
    Dim arr()
    Dim str As String
   
    For i = 1 To 36
    k = 0
        For Each rng In Range("b1:e7")
            If i = rng Then
                k = k + 1
            End If
        Next
        If k = 0 Then
            n = n + 1
            ReDim Preserve arr(1 To n)
            arr(n) = i
        End If
        
    Next
   
    str = Join(arr, "、")
    Range("g2") = str

End Sub

624134745

哈哈 365的公式各种用上了。。

jivy1212

展开的套路刚记好，结果这套路上还得再加去重

1. =TEXTJOIN(",",1,TEXT(IF(COUNTIF(B1:E7,COLUMN(A:AJ)),"",COLUMN(A:AJ)),"[<"&SUBSTITUTE(LEFT(TEXT(TEXT(TRIM(MID(SUBSTITUTE(J1,"，",REPT(" ",66)),ROW(1:9)*66-65,66))&".0","00...."),"@@"),8),"....","]"""";[>")&"]"""";0"))

复制代码

cinlo

jivy1212 发表于 2022-3-23 14:16
展开的套路刚记好，结果这套路上还得再加去重

老师太牛了。。。。。。。。

象山海鲜

jivy1212 发表于 2022-3-23 14:16
展开的套路刚记好，结果这套路上还得再加去重

学习并优化些

1. =TEXTJOIN(",",1,TEXT(IF(COUNTIF(B1:E7,COLUMN(A:AJ)),"",COLUMN(A:AJ)),SUBSTITUTE("["&TEXT(MID(SUBSTITUTE(J1,"，",REPT(" ",66)),ROW($1:$9)*66-65,66),"=0;;;<@")&"];","....","]"""";[<=")))

复制代码

jivy1212

象山海鲜 发表于 2022-3-23 16:17
学习并优化些

单个跟一组的处理不好，还有种是REPT()，老师的方法短好多。

cinlo

象山海鲜 发表于 2022-3-23 16:17
学习并优化些

晚上回家好好学习~~~已经嫖到了~~~现在我可以写到177~~~

jivy1212

cinlo 发表于 2022-3-23 16:45
晚上回家好好学习~~~

配个神奇函数，感觉蛮舒服了，去重部分再缩缩就好了。