Vba Excel宏比较两个不同工作表中的两列，并用序列号替换其值

如何创建一个宏，在两个不同的工作表的两列中获取学生ID，并将其值更改为新的序列号？

我创建了代码，它工作正常

Sub Macro13()
Dim i As Long
Dim myValue1 As Double, myValue2 As Double, seqNo As Double
LastRow = ActiveSheet.UsedRange.Cells(ActiveSheet.UsedRange.Rows.Count, 1).Row
seqNo = 1

For i = 2 To LastRow

     myValue1 = Worksheets("Sheet2").Range("D" & i).Value
     myValue2 = Worksheets("Sheet1").Range("B" & i).Value
      If myValue1 = myValue2 Then
        Worksheets("Sheet2").Range("D" & i).Value = seqNo
        Worksheets("Sheet1").Range("B" & i).Value = seqNo
        seqNo = seqNo + 1
      End If
     Next i
 End Sub