Public Function sLookUp(Lookup_value, table_array, col_index_num, Optional Delimiters = ",") As String
Dim arr As Variant, i As Long, Dlms As String
arr = table_array
Dlms = ""
For i = 1 To UBound(arr)
If arr(i, 1) = Lookup_value And arr(i, col_index_num) <> Empty Then
sLookUp = sLookUp & Dlms & arr(i, col_index_num)
Dlms = Delimiters
End If
Next
If sLookUp = Empty Then sLookUp = "#N/A"
Set arr = Nothing
End Function
上面是源代码。
但是在实际应用上excel表爆卡。 后来有人帮我把第三行代码改成了这样后就不卡了。
arr = Intersect(Sheets(4).UsedRange, table_array)
我想问一下 这行代码是什么意思。。。
arr = Intersect(Sheets(4).UsedRange, table_array)
将Sheets(4).已用单元格部分与table_array重合的区域赋值给arr
就像下图=COUNTIF(A:A,"")和=COUNTIF(A1:A3,"")的区别
追问也就是说如果在sheets(4)里的数据到了一定量之后 这个表还是会卡到爆。是这个意思吧
追答还和的table_array的数据量有关,不知道你平时怎么用
你可以试验一下
谢谢。。