トップ «前の日記(2013-03-16) 最新 次の日記(2013-03-23)» 編集

日々の破片

Subscribe with livedoor Reader
著作一覧

2013-03-21

_ 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'

2003|06|07|08|09|10|11|12|
2004|01|02|03|04|05|06|07|08|09|10|11|12|
2005|01|02|03|04|05|06|07|08|09|10|11|12|
2006|01|02|03|04|05|06|07|08|09|10|11|12|
2007|01|02|03|04|05|06|07|08|09|10|11|12|
2008|01|02|03|04|05|06|07|08|09|10|11|12|
2009|01|02|03|04|05|06|07|08|09|10|11|12|
2010|01|02|03|04|05|06|07|08|09|10|11|12|
2011|01|02|03|04|05|06|07|08|09|10|11|12|
2012|01|02|03|04|05|06|07|08|09|10|11|12|
2013|01|02|03|04|05|06|07|08|09|10|11|12|
2014|01|02|03|04|05|06|07|08|09|10|11|12|
2015|01|02|03|04|05|06|07|08|09|10|11|12|
2016|01|02|03|04|05|06|07|08|09|10|11|12|
2017|01|02|03|04|05|06|07|08|09|10|11|12|
2018|01|02|03|04|05|06|07|08|09|10|11|12|
2019|01|02|03|

ジェズイットを見習え