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

Question

我需要比较两张纸并将减法结果写在注释中的代码。

我有比较两列的代码，但我不知道如何重新构建此代码以处理整个工作表。

当前代码：

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 nd 14之间：您可以根据工作表进行更改

#include <valarray>

int main() {
  //Initialize valarray
  std::valarray<int> val0{0,1,2,3,4,5,6,7,8,9};
  std::valarray<int> val1{9,8,7,6,5,4,3,2,1,0};

  //Compare valarray
  std::valarray<bool> cmp0 = val0 < val1;

  //Compare slice_array
  std::valarray<bool> cmp1 = 
std::valarray<int>(val0[std::slice(0,5,2)]) < std::valarray<int>(val1[std::slice(1,5,2)]);

  //Compare slice_array since c++17
  std::valarray<bool> cmp2 =
std::valarray(val0[std::slice(0,5,2)]) < std::valarray(val1[std::slice(1,5,2)]);

  return 0;
}