vba，遍历取值求差问题，高手加hi

Sub tt()
Application.ScreenUpdating = False
Dim cell, mAdd$, mDif!
For Each cell In Sheet2.UsedRange
mAdd = cell.Address(0, 0)
If cell.Row > 1 Then
If Left(cell.Formula, 1) <> "=" Then cell.Value = Sheet1.Range(mAdd).Value
End If
Next cell
For Each cell In Sheet2.UsedRange
mAdd = cell.Address(0, 0)
If cell.Row > 1 Then
mDif = Abs(cell.Value - Sheet1.Range(mAdd).Value)
If mDif > 0 Then
With Sheet1.Range(mAdd)
.ClearComments
.Interior.ColorIndex = 6
.AddComment
.Comment.Text Text:="与" & Replace(cell.Formula, "=", "") & " 差值为 " & mDif
End With
End If
End If
Next cell
Application.ScreenUpdating = True
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/e3fe37e3j.html