Google apps script 将excel vba转换为google脚本

我在

Excel2010VBA

中有此函数，但我无法将其转换为google脚本

Sub CalMoy()
    Dim i As Integer
    Dim dMWhit As Double
    Dim dMBlack As Double

    dMBlack = 0
    dMWhit = 0

    For i = 69 To 88
        j = 6
        For j = 6 To 32
            If (Evaluate(Chr(i) & j).Value = "Blanc") Then
                dMWhit = dMWhit + Evaluate("C" & j).Value
            End If
            If (Evaluate(Chr(i) & j).Value = "Noir") Then
                dMBlack = dMBlack + Evaluate("C" & j).Value
            End If
        Next j
        Evaluate(Chr(i) & 33).Value = dMWhit 
        Evaluate(Chr(i) & 34).Value = dMBlack 

    Next i
End Sub

我尝试使用此代码，但没有成功

function CalMoy(){


    var dMBlack = 0;
    var dMWhit = 0;
    var col='';
    for (i = 69; i= 88; i++){
        var col=String.fromCharCode(i);
        var j = 6
        for (j = 6; j=32; j++){ 
          if(eval(col+ j + "value") = "Blanc"){
                 dMWhit = dMWhit + eval("C" & j).Value
          }
          if(eval(col+ j).Value = "Noir"){
                 dMBlack = dMBlack + eval("C" & j).Value
          }
        }
        eval(col + 33).Value = dMWhit 
        eval(col + 34).Value = dMBlack 

    }
}

---

在您的

For

条件中，您有

i=88

，应该是

i“这不是一个成功”，您需要提供更多信息。有错误信息吗？例外？编译错误？
if(eval(col+ j + "value") = "Blanc"){

function CalMoy(){
  var dMBlack = 0;
  var dMWhit = 0;

  var col='';

  for (var i = 69; i < 88; i++){
    var col = String.fromCharCode(i);

      for (var j = 6; j<32; j++){ 
        if (eval("col + j + value") = "Blanc") {
          dMWhit = dMWhit + eval("C + j").Value
        }

        if (eval(col+ j).Value = "Noir") {
          dMBlack = dMBlack + eval("C" & j).Value;
        }
      }

      eval("col + 33").Value = dMWhit;
      eval("col + 34").Value = dMBlack;
    }
}