日々の破片

_ Excelに横のものを縦に設定する

1行の複数のデータを縦1列の複数行に設定。

a = [1,2,3,4,5]
sheet.Range(sheet.Cells(row, 1), sheet.Cells(row + 4, 1)).Value = a.zip

複数行の複数のデータの行列をひっくり返して設定。

a = [[1,2,3,4,5], [10,20,30,40,50]]
sheet.Range(sheet.Cells(row, 1), sheet.Cells(row + 4, 2)).Value = a.transpose

新規のシート

a = WIN32OLE.new('excel.application')
newbook = a.WorkBooks.Add
sheet = newbook.WorkSheets.Itm(1)
sheet.Name = 'Tab Name'