[已解决]求帮写个提取包含指定条件数组的自定义函数代码

lipu00

A1-D1内4个数字不是固定的，有可能有的单元格为空，只有2个或3个数字；C1内数组也不是固定的，但不会为空。

从C1中提取包含A1-D1数字的数组到C6，要求A1-D1的数字只能是一个(重复的算一个)。

从C1中提取包含A1-D1数字的数组到C8，要求有A1-D1的任意两个数字(重复的算一个)。

从C1中提取包含A1-D1数字的数组到C10，要求有A1-D1的任意三个数字(重复的算一个)。


请老师帮忙用vba自定义函数帮写下代码，谢谢!

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-1-21 15:23

Function demo(r1 As Range, r2 As Range, k As Integer)
   Dim arr: arr = r1
   For i = 1 To 4
      If arr(1, i) <> "" Then n = n + 2 ^ arr(1, i)
   Next
   s = r2.Value
   For i = 1 To Len(s)
      si = Mid(s, i, 1)
      If si = " " Then
         If cnt = k Then demo = demo & Mid(s, i - 4, 4) & " "
         v = 0: cnt = 0
      Else
         If (2 ^ si Or v) <> v Then
            If (2 ^ si Or n) = n Then cnt = cnt + 1
            v = v Or 2 ^ si
         End If
      End If
   Next
End Function

祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

cutecpu

Function demo(r1 As Range, r2 As Range, k As Integer)
   Dim arr: arr = r1
   For i = 1 To 4
      If arr(1, i) <> "" Then n = n + 2 ^ arr(1, i)
   Next
   s = r2.Value
   For i = 1 To Len(s)
      si = Mid(s, i, 1)
      If si = " " Then
         If cnt = k Then demo = demo & Mid(s, i - 4, 4) & " "
         v = 0: cnt = 0
      Else
         If (2 ^ si Or v) <> v Then
            If (2 ^ si Or n) = n Then cnt = cnt + 1
            v = v Or 2 ^ si
         End If
      End If
   Next
End Function

祝順心，南無阿彌陀佛！

lipu00

cutecpu 发表于 2021-1-21 15:23
Function demo(r1 As Range, r2 As Range, k As Integer)
   Dim arr: arr = r1
   For i = 1 To 4

谢谢版主大人，你一出手真是天下无敌