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

Question

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

Answer 1

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

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