Сравните 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