При использовании "Transpose" возникает ошибка

[dwmair23]

Имеется вот такой код:

Option Explicit
 
Sub Dw()
Dim di As Object, i&, j&, x
Dim lCol As Long
Dim n1 As Variant
    
  Set di = CreateObject("scripting.dictionary")
  di.comparemode = vbTextCompare
  Range("C:Z").ClearContents
  For i = 2 To Worksheets.Count
    With Worksheets(i)
      Worksheets(1).Cells(2, i + 1) = .Name
      For Each x In .Range("B2", .Cells(.Rows.Count, 2).End(xlUp)).Value2
        di(x) = 0
      Next
    End With
  Next
  j = Cells(Rows.Count, 1).End(xlUp).Row
  For Each x In Range("A3:A" & j).Value2
    If di.exists(x) Then di.Remove x
  Next
  If di.Count Then
    With Cells(j + 1, 1).Resize(di.Count)
      .Value = WorksheetFunction.Transpose(di.keys)
      .Font.Color = vbRed
    End With
  Else
    MsgBox "Новых наименований нет", vbInformation
  End If
  Range("C3").Resize(j - 2 + di.Count, i - 2).Formula = _
    "=IFERROR(VLOOKUP($A3,INDIRECT(""'""&C$2&""'!B:C""),2,),""-"")"
    
 lCol = Worksheets(1).Cells(2, Columns.Count).End(xlToLeft).Column
 Worksheets(1).Cells(2, lCol + 1) = "Âñåãî"
 Worksheets(1).Cells(2, lCol + 2) = "ÐåçóëüòГ*ГІ"
 
 Cells(3, lCol + 1).Resize(j - 2 + di.Count, 1).FormulaR1C1 = "=SUM(RC3:RC[-1])"
 Cells(3, lCol + 2).Resize(j - 2 + di.Count, 1).FormulaR1C1 = "=rc[-1]-rc2"
 
End Sub

В строчке

.Value = WorksheetFunction.Transpose(di.keys)

возникает ошибка, если длина строки более 255 символов.

Вопрос - как можно обойти это ограничение?

[Hugo121]

Переложить например циклом. Можно если данных много использовать промежуточный массив.

[Казанский]

кросс http://www.cyberforum.ru/ms-excel/thread2401138.html