循环假死的问题

saimenl

大神们，以下附件，如果自定义函数第二个参数输入整列，就会因为循环出现假死。
副本提取名字.rar (13.34 KB, 下载次数: 10)

2018-7-4 11:50 上传

点击文件名下载附件

工作表“摘要”C2单元格，公式往下拉的时候出现EXCEL假死，
自定义函数第二个参数TableArray的定位常量似乎不起作用。
Set rng = TableArray.SpecialCells(xlCellTypeConstants, 23)


请大神们帮忙看一下

saimenl

快沉了                。

saimenl

顶起来    。

zopey

Function imatch(TargetVal As Range, TableArray As Range) As String
Dim icell As Range, rng As Range
Application.Volatile
imatch = "未匹配！"
Set rng = TableArray.SpecialCells(xlCellTypeConstants, 23)

For Each icell In rng
If icell.Text = "" Then Exit For
If TargetVal.Text Like "*" & icell.Text & "*" Then
   imatch = icell.Text
   Exit For
End If
Next

End Function

saimenl

然而这样一个都匹配不上了，见C列公式=imatch(A2,名字!A:C)

副本提取名字.rar (13.5 KB, 下载次数: 1)

2018-7-5 16:37 上传

点击文件名下载附件

zopey

=imatch(A2,名字!A:A)

A:A改成A:C  有点无解

saimenl

还有别的方法吗

xiaocake

zopey

zopey 发表于 2018-7-5 10:56
Function imatch(TargetVal As Range, TableArray As Range) As String
Dim icell As Range, rng As Range ...

‘修改如下

Function imatch(TargetVal As Range, TableArray As Range) As String
Dim icell As Range, rng As Range
Application.Volatile
imatch = "未匹配！"

Set rng = Intersect(TableArray, TableArray.Parent.UsedRange) '当区域取整列时，就最大返回可用区域内的单元格区域
n = rng.Rows.Count
m = rng.Columns.Count

For j = 1 To m
For i = 1 To n
   If rng(i, j) <> "" Then
   If InStr(TargetVal.Text, rng(i, j)) > 0 Then
      imatch = rng(i, j)
      Exit For
   End If
   End If
Next i
Next j

End Function

saimenl

感谢！已解决

很奇怪，为什么我原来定位rng为TableArray单元格区域的常量值这个语句不起作用，不知道有没有高手可以解答下

Set rng = TableArray.SpecialCells(xlCellTypeConstants, 23)