比较2张纸并在评论中添加减法结果

Question

我需要比较2张的代码，并在评论中写下减法的结果。

我有比较2列的代码，但我不知道如何重新编写此代码以使用整个表。

当前代码：

Sub D_ValueToComment()
    ActiveSheet.Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Dim rCell As Range
    For Each rCell In Selection
        With rCell
            If .HasFormula Then
                .Comment.Delete
                Else: .AddComment
                .Comment.Text Text:=CStr("Wynik: " & rCell.Value - (rCell.Offset(0, 1).Value))
            End If
        End With
    Next
    Set rCell = Nothing 
End Sub

Answer 1

您可以使用2个循环创建以下函数：

1. “ro”是行号
2. “co”是列号

ro介于3到12之间，co介于3到14之间：您可以按照表单更改

Sub comments()
'On Error Resume Next
For ro = 3 To 12
For co = 3 To 14
    s1 = Sheets(2).Cells(ro, co)
    s2 = Sheets(3).Cells(ro, co)
    Set Rng = Sheets(2).Cells(ro, co)
    Rng.ClearComments
    Rng.AddComment
    Rng.Comment.Text Text:="Wynik: " & s2 - s1
Next
Next
End Sub