数据对比

Qs18

试试.........

Qs18

试试...........

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, i&, Rng As Range, rngFind As Range, strFirstAddress$
   
    ar = [A1].CurrentRegion.Value
    Set Rng = Worksheets(1).Cells
   
    For i = 1 To UBound(ar)
        Set rngFind = Rng.Find(ar(i, 2), , , xlWhole)
        If Not rngFind Is Nothing Then
            ar(i, 3) = rngFind.Offset(, -1).Value
        Else
            ar(i, 3) = Empty
        End If
    Next i
   
    [A1].CurrentRegion.Value = ar
    Set Rng = Nothing: Set rngFind = Nothing
    Beep
End Sub

yanglinzi

1. Sub 两表对比()
   
2. Dim arr, i, j, r, d, c, sb
   
3. Set d = CreateObject("scripting.dictionary")
   
4. With Sheet1
   
5.     r = .Cells(Rows.Count, 2).End(xlUp).Row
   
6.     c = .Cells(1, Columns.Count).End(xlToLeft).Column
   
7.     arr = .[a1].Resize(r, c)
   
8. End With
   
9. For i = 2 To UBound(arr)
   
10.     sa = arr(i, 3)
    
11.     d(sa) = arr(i, 2)
    
12. Next
    
13. With Sheet2
    
14.     r = .Cells(Rows.Count, 2).End(xlUp).Row
    
15.     For j = 2 To r
    
16.         sb = .Cells(j, 2)
    
17.         .Cells(j, 3) = d(sb)
    
18.     Next
    
19. End With
    
20. End Sub
    

复制代码

yanglinzi

参与一下。。

ykcbf1100

楼主很专一啊，看中一个后对其他人回复就视而不见了。

zhangbuliang

quqiyuan 发表于 2024-9-1 12:48
参与一下，仅供参考。。。

兄弟，我还有一个，把VBA单独放在表１，数据放在表２，结果生成在表３，要如何设计。

quqiyuan

zhangbuliang 发表于 2024-9-7 19:18
兄弟，我还有一个，把VBA单独放在表１，数据放在表２，结果生成在表３，要如何设计。

vba 放在哪里影响不大，数据在表2，改sheet1为sheets("表2的名称")，结果在表3，改sheet2为sheets("表3的名称")，

zhangbuliang

quqiyuan 发表于 2024-9-7 20:02
vba 放在哪里影响不大，数据在表2，改sheet1为sheets("表2的名称")，结果在表3，改sheet2为sheets("表3的 ...

老师，你太厉害。我还有一个想法。宏是单独一个工作薄，数据是一个工作薄，然后结果生成一个工作薄，这个要怎么设计，辛苦你了。

sdytsxd991122

wps 学习中