请教老师，用VBA，找出C列最后一个数与E1的数相同，就显示在F列，谢谢！

cartel

请教老师，用VBA，找出C列最后一个数与E1的数相同，就显示在F列，谢谢！.zip (9.71 KB, 下载次数: 9)

2022-12-2 15:23 上传

点击文件名下载附件

ykcbf1100

是这样吧。

tanglf188

一开始理解错了，是C列最后一位包含在E列吧，看看是不是你的意思

gwjkkkkk

参与 一下。。。

feilanga

1. Sub t()
   
2.     arr = Sheet1.Range("c1").CurrentRegion.Columns(1)
   
3.     条件 = Sheet1.[E1]
   
4.     Dim dic As Object
   
5.     Set dic = CreateObject("scripting.dictionary")
   
6.     For i = 1 To UBound(arr)
   
7.         Key = arr(i, 1)
   
8.         尾号 = Split(Key, ",")(3)
   
9.         temp = Split(条件, ",")
   
10.         For m = 0 To UBound(temp)
    
11.             If InStr(temp(m), 尾号) > 0 Then
    
12.                 dic(Key) = i
    
13.                 i = i + 1
    
14.                 Exit For
    
15.             End If
    
16.         Next
    
17.     Next
    
18.     ReDim brr(1 To dic.Count, 1 To 1)
    
19.     For Each n In dic.keys
    
20.         k = k + 1
    
21.         brr(k, 1) = n
    
22.     Next
    
23.     Sheet1.Range("f1").Resize(k, 1) = brr
    
24. End Sub

复制代码

参与一下

Hontyu

              练习

lizhipei78

使用字典来判断最快