如何按数字区的数字符和加减条件的列在D列返回满足条件的组合?

作者：绿色风分类：时间：2022-08-17 浏览：141

楼主
liuguansky

Q:如何按数字区的数字符和加减条件的列在D列返回满足条件的组合?
A:如果条件要同时满足可用如下代码:

Sub justtest1()
Dim dic, arr, i%, j%, str1$, str2$, str3$, str4$, strm$, strn$, m%, n%
Set dic = CreateObject("scripting.dictionary")
str1 = Cells(2, 1).Value
str2 = Cells(2, 2).Value
str3 = Cells(6, 1).Value
str4 = Cells(8, 1).Value
For i = 1 To Len(str3)
strm = strm & "," & Mid(str3, i, 1)
Next
For i = 1 To Len(str4)
strn = strn & "," & Mid(str4, i, 1)
Next
strm = "[" & Mid(strm, 2) & "]"
strn = "[" & Mid(strn, 2) & "]"
For i = 1 To Len(str1)
m = CInt(Mid(str1, i, 1))
For j = 1 To Len(str2)
n = CInt(Mid(str2, j, 1))
If Abs(m - n) Like strm And (m + n) Mod 10 Like strn Then
dic("'" & m & n) = ""
End If
Next j, i
Range("d2:d" & Rows.Count).ClearContents
If dic.Count > 0 Then
Cells(2, 4).Resize(dic.Count, 1) = Application.Transpose(dic.keys)
End If
Set dic = Nothing
End Sub

如果是满足其一即可,把其中判断语句的AND改成OR

按数字区的数字符和加减条件的列在D列.rar

2楼
xyf2210

花花强悍

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表