/**
    * Sets a value to the current cell or cell range.
    * @memberof ApiRange
    * @typeofeditors ["CSE"]
    * @param {string | bool | number | Array[] | Array[][]} data - The general value for the cell or cell range.
    * @return {boolean} - returns false if such a range does not exist.
    */
   ApiRange.prototype.SetValue = function (data) {
      if (!this.range)
         return false;

      let worksheet = this.range.worksheet;

      if (Array.isArray(data)) {
         let checkDepth = function (x) {
            return Array.isArray(x) ? 1 + Math.max.apply(this, x.map(checkDepth)) : 0;
         };
         let maxDepth = checkDepth(data);
         if (maxDepth <= 2) {
            if (this.range.isOneCell()) {
               data = maxDepth == 1 ? data[0] : data[0][0];
            } else {
               let bbox = this.range.bbox;
               let nRow = bbox.r2 - bbox.r1 + 1;
               let nCol = bbox.c2 - bbox.c1 + 1;
               for (let indC = 0; indC < nCol; indC++) {
                  for (let indR = 0; indR < nRow; indR++) {
                     let value = (maxDepth == 1 ? data[indC] : data[indR] ? data[indR][indC] : null);
                     if (value === undefined || value === null)
                        value = AscCommon.cErrorLocal["na"];

                     let cell = this.range.worksheet.getRange3((bbox.r1 + indR), (bbox.c1 + indC), (bbox.r1 + indR), (bbox.c1 + indC));
                     let merged = cell.hasMerged();
                     if (merged)
                        cell = this.range.worksheet.getRange3(merged.r1, merged.c1, merged.r1, merged.c1);

                     value = checkFormat(value.toString());
                     cell.setValue(value.toString());
                     if (value.type === AscCommonExcel.cElementType.number)
                        cell.setNumFormat(AscCommon.getShortDateFormat());
                  }
               }
               worksheet.workbook.handlers.trigger("cleanCellCache", worksheet.getId(), [this.range.bbox], true);
               worksheet.workbook.oApi.onWorksheetChange(this.range.bbox);
               return true;
            }
         }
      }
      data = checkFormat(data || 0);
      let range = this.range;
      let merged = range.hasMerged();
      if (merged)
         range = this.range.worksheet.getRange3(merged.r1, merged.c1, merged.r1, merged.c1);

      range.setValue(data.toString());
      if (data.type === AscCommonExcel.cElementType.number)
         range.setNumFormat(AscCommon.getShortDateFormat());

      worksheet.workbook.handlers.trigger("cleanCellCache", worksheet.getId(), [range.bbox], true);
      worksheet.workbook.oApi.onWorksheetChange(range.bbox);
      return true;
   };

Private Sub DicttVsCollTest()
    Const CntElem& = 200000
    Const CntIter& = 1
    Const minSzStr& = 5   'минимальный размер случайных строк
    Const maxSzStr& = 10  'максимальный размер случ. строк
    Dim sRndAr$()
    sRndAr = GetRndStrArray(CntElem, minSzStr, maxSzStr)
    Dim i&, j&, t!, t1!, t2!
    Dim Coll As New VBA.Collection
    
    t = Timer
    For j = 0 To CntElem - 1
        Coll.Add Empty, sRndAr(j)
    Next
    t1 = t1 + Timer - t
    
    Dim Dict As New Dictionary
    
    t = Timer
    For j = 0 To CntElem - 1
        Dict.Add sRndAr(j), Empty
    Next
    t2 = t2 + Timer - t
    
    Debug.Print "Скорость заполнения " & CntElem & " элементов: "
    Debug.Print "Коллекция: ", t1
    Debug.Print "Словарь: ", t2
    
    Dim vElem
    t1 = Timer
    For i = 1 To CntIter
        For j = 0 To CntElem - 1
            vElem = Coll(sRndAr(j))
        Next
    Next
    t1 = Timer - t1
    
    t2 = Timer
    For i = 1 To CntIter
        For j = 0 To CntElem - 1
            vElem = Dict(sRndAr(j))
        Next
    Next
    t2 = Timer - t2
    
    Debug.Print "Получение элементов: "
    Debug.Print "Коллекция: ", t1
    Debug.Print "Словарь: ", t2
    
End Sub

Function GetRndStrArray(ByVal Cnt As Long, ByVal minStrSz&, ByVal maxStrSz&) As String()
    Cnt = Cnt - 1
    Dim i&, sArOut$(): ReDim sArOut(Cnt)
    For i = 0 To Cnt
        sArOut(i) = GetRandomString(minStrSz, maxStrSz)
    Next
    GetRndStrArray = sArOut
End Function
Function GetRandomString(ByVal Lw&, ByVal Up&) As String
    Static init As Boolean, ChrTbl$, ChrTblLen&
    If init Then
    Else
      ChrTbl = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqastuvwxyzАБВГДЕЁЖЗИЙКЛМНУФХЦЧШЩЬЫЪЭЮЯабвгдеёжзийклмнопрстуфхцчшщьыъэюя "
      ChrTblLen = Len(ChrTbl)
      Randomize
      init = True
    End If
    Dim i&, j&, strLen&: strLen = (Up - Lw + 1) * Rnd + Lw
    GetRandomString = String(strLen, vbNullChar)
    For i = 1 To strLen
        j = Int(ChrTblLen * Rnd + 1)
        Mid$(GetRandomString, i) = Mid$(ChrTbl, j, 1)
    Next
End Function