用VBA实现VLOOKUP和IF组合功能？

2217918

lsc900707 发表于 2018-9-22 15:44
改一个地方就行：

老师，运行后不对，无论是否有新客户，都显示发现新客户【N2以下单元格显示“客户编码正确”N1单元格应该显示“客户编码正确”】，反之，【N2以下单元格显示“发现新客户，需在U8建客户编码“，N1单元格应该显示“发现新客户”】，麻烦你老师你在看看。

lsc900707

2217918 发表于 2018-9-22 16:07
老师，运行后不对，无论是否有新客户，都显示发现新客户【N2以下单元格显示“客户编码正确”N1单元格应该 ...

我再看看，晚上修改！

2217918

lsc900707 发表于 2018-9-22 16:14
我再看看，晚上修改！

好的，谢谢！

lsc900707

2217918 发表于 2018-9-22 16:17
好的，谢谢！

1. Sub gj23w98()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     Range("n2:n" & Rows.Count).ClearContents
   
4.     arr = Sheet3.[b1].CurrentRegion
   
5.     For i = 2 To UBound(arr)
   
6.         d(Trim(arr(i, 2))) = arr(i, 4)
   
7.     Next
   
8.     brr = [a1].CurrentRegion
   
9.     For i = 2 To UBound(brr)
   
10.         If Not d.exists(Trim(brr(i, 3))) Then
    
11.             brr(i, 14) = "需在U8建客户编码"
    
12.         Else
    
13.             brr(i, 14) = "客户编码正确"
    
14.         End If
    
15.     Next
    
16.     [a1].CurrentRegion = brr
    
17.     If Application.CountIf(Range("n:n"), "需在U8建客户编码") > 0 Then Cells(1, 14) = "发现新客户" Else Cells(1, 14) = "客户编码正确"
    
18. End Sub

复制代码

2217918

lsc900707 发表于 2018-9-22 16:36

达到我的要求了，非常感谢！