当前位置：首页 → 问答吧 → 计算C列区域内所有数字串中与H列每个数字串不含公共数字的数字串个数

计算C列区域内所有数字串中与H列每个数字串不含公共数字的数字串个数

时间：2011-08-07

来源：互联网

依次取H3：h30区域内每个数字串，同C3：c22单元格区域内所有数字串进行比较，求得C3：c22内与该数字串不含公共数字的数字串个数。
请帮忙设计下代码，谢谢！

附件

计算C列区域内所有数字串中与H列每个数字串不含公共数字的数字串个数.rar(8.32 KB)

2011-8-7 10:04, 下载次数: 4

作者: yinxingbaoshu 发布时间: 2011-08-07

如果字符串是指01——14这种两位数字，好像不存在这样的“不含公共数字的数字串”
请楼主明示字符串是指什么
3楼理解的正确

[ 本帖最后由 zhaogang1960 于 2011-8-7 11:56 编辑 ]

作者: zhaogang1960 发布时间: 2011-08-07

复制内容到剪贴板

代码:

Sub 字符串计算()
Dim i%, j%, i1%, Arr1, Arr2, Brr, Crr, Drr(1 To 28), d As Object
Set d = CreateObject("Scripting.Dictionary")
Arr1 = Range("c3").CurrentRegion
Arr2 = Range("h3").CurrentRegion
For i = 1 To UBound(Arr2) '建立字典
  d.RemoveAll
  Brr = Split(Arr2(i, 1), " ")
  For j = 0 To UBound(Brr)
   d(Brr(j)) = ""
  Next
  For i1 = 1 To UBound(Arr1) '逐项对比
   Crr = Split(Arr1(i1, 1))
   For j = 0 To UBound(Crr)
   If d.exists(Crr(j)) Then GoTo jixu
   Next
   Drr(i) = Drr(i) + 1
jixu:
  Next
Next
Cells(3, "I").Resize(28) = Application.Transpose(Drr)
End Sub