excel中请用VBA提出两列数据中相同的数来。

Question

如题所述

Answer 1

亲，打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。

 

Sub cz()
Dim f As Range: Dim i, n As Integer
n = 3357: Columns("D").NumberFormat = "@"
For i = 3357 To 3343 Step -1
    Set f = Range("B3343:B3357").Find(Range("A" & i).Value)
    If Not f Is Nothing Then Range("C" & n).Value = i: Range("D" & n).Value = Range("A" & i).Value: n = n - 1
Next
End Sub

Answer 2

利用字典，将B列插入字典的key值，然后循环A列，判断字典的key是否存在，再将存在的行写入后面的列。前提是如果B列不重复的话！

Sub 查找()

    Set d = CreateObject("Scripting.Dictionary")

    h = [b65536].End(3).Row

    arr = Range("b1:b" & h)

    For i = 1 To UBound(arr, 1)

        d.Add val(arr(i, 1)), ""

    Next i

    For i = h To 1 step -1

        If d.exists(val(Cells(i, 1))) Then

            Cells(h, 3) = i

            Cells(h, 4) = Cells(i, 1)

            h = h - 1

        End If

    Next

End Sub

Answer 3

弄错了 一个问题  现改正

Sub jk()

 Dim i, j, k

 i = [a65536].End(3).Row

 Cells(i, 3).Select

 For j = i To 1 Step -1

  For k = i To 1 Step -1

  If Cells(j, 1) = Cells(k, 2) Then

  Selection = j

  Selection.Offset(0, 1) = Cells(j, 1)

  Selection.Offset(-1, 0).Select

  End If

  Next

 Next

End Sub

Answer 4

A列本身有没有重复，B列本身有没有重复？