Добавление нескольких столбцов, чтобы превзойти TCL

Question

Я пытаюсь добавить несколько столбцов, чтобы превзойти TCL. Вот код

          set rows [array size atten]
          set columns { B}

          for {set row 1} {$row <= $rows} {incr row} {
            foreach column $columns {
              $cells Item $row $column $atten($row)
            }
          }

---- Эти данные заполнены в Excel

          set a_rows [array size transmit]
          set a_columns { C}

          for {set row 1} {$row <= $a_rows} {incr row} {
            foreach column $a_columns {
              $cells Item $row $column $transmit($row)
            }
          }
          $workbook SaveAs Filename {c:\tst.xls}
          $application Quit

В файле Excel заполняется только первый массив внимания, он полностью пропускает часть кода, которая добавляет передающий массив в файл Excel. Как это можно решить?

Answer 1

Установить оба столбца в одном цикле foreach.