查询判断数据是否已经存在

天地一相

感谢帮助！详见截图附件。

feilanga

是不是天天琢磨着出题玩

天地一相

feilanga 发表于 2023-7-25 11:09
是不是天天琢磨着出题玩

没呀，有一个正向查询的，想修改成反向的，改错了糊涂了。自己尝试新写一个，好半天没想清楚循环怎样嵌套。只好求助看下了。

feilanga

最基本的字典应用

吴中泉

如图所示

天地一相

feilanga 发表于 2023-7-25 11:18
最基本的字典应用

谢谢，测了下，应该是对的，我多用下看看。我自己写的卡死的感觉，可否指点下哪里不对劲？

1. Dim x%, y&
   
2.         
   
3.         x = Sheet2.Cells(Rows.Count, "B").End(xlUp).Row
   
4.         y = Sheet1.Cells(Rows.Count, "C").End(xlUp).Row
   
5. 
   
6.     For m = 1 To x
   
7.     For n = 4 To y
   
8.        If Cells(x, 2).Value = Sheet1.Cells(y, 3).Value Then
   
9.        If Cells(x, 5).Value = Sheet1.Cells(y, 5).Value Then
   
10.          Cells(x, 6).Value = 1
    
11.         End If
    
12.         End If
    
13.     Next n
    
14.     Next m

复制代码

limonet

用到：RIGHT JOIN、AND

limonet

Sub limonet()
    Dim Cn As Object, StrSQL$
    Set Cn = CreateObject("adodb.connection")
    Cn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0;HDR=NO';data source=" & ThisWorkbook.FullName
    StrSQL = "Select iif(a.f1 is null,0,1) from [最新数据$C4:E]a right join [现存数据$B1:E]b on a.f1=b.f1 and a.f3=b.f4"
    Range("F1").CopyFromRecordset Cn.Execute(StrSQL)
End Sub

limonet

抱歉，看岔了，打搅了。

limonet

抱歉，看岔了，打搅了。