for文の繰り返しについて

Question

前提・実現したいこと

Excelデータから必要な1行データ(14セル)を抜き取り、それを新しいシートに12行複製してペーストする処理を元データの最終行まで行いたいと考えています。複数行にしてペーストする処理まではできたのですが、それを最終行まで繰り返させる処理がどうしても実行されません。どうすればできるかアドバイス頂きたいです。

発生している問題・エラーメッセージ

エラーメッセージ

該当のソースコード

def act(a): #1行分の列部分を取得する関数
    

    for i in range(1,14):#指定した14セル抜き取る
        copy = ws.cell(row = a, column =i).value
        copy_prg = ws.cell(row = a, column =33).value
        copy_biko = ws.cell(row = a, column =34).value

        for j in range(1,12):#抜き取った部分を12行複製する
            ws2.cell(row = j,column = i,value = copy) #列形式の部分をすべて貼り付け
            ws2.cell(row = j,column = 1,value = ws['K1'].value) #1列目にk1を入れる
            ws2.cell(row = j,column = 14,value = copy_prg) #AG列を入れる
            ws2.cell(row = j,column = 15,value = copy_biko) #AH列入れる(改行なし)

#この下の処理が上手くいきません       
                
max=int(ws.max_row) #最終行数の算出(221行)
for y in range(6,max,4): #6行目から最終行まで4行飛ばしながら実行(1-3行は空欄のため)
    act(6)

試したこと

補足情報（FW/ツールのバージョンなど）

Comments

[meg_]

> この下の処理が上手くいきません
｢上手くいきません｣とは具体的にはどうなるのでしょうか？

[akubareto]

１行の指定した部分抜き出す→貼り付け先(ws2)で12行に複製しながら貼り付けるを
最終行まで繰り返させたいと考えています。

[akubareto]

1行文しか貼り付け先に反映しない状態になっています。

Answer 1

petermanさんの指摘にもありますが、この処理のact(6)は act(y)にすべきです。

for y in range(6,max,4): #6行目から最終行まで4行飛ばしながら実行(1-3行は空欄のため)
    act(6)

以下の処理は、貼り付けの処理ですが、行番号が固定になっています。

        for j in range(1,12):#抜き取った部分を12行複製する
            ws2.cell(row = j,column = i,value = copy) #列形式の部分をすべて貼り付け

これでは、常に1行目から11行目(12にならない)までに値を書き込んでしまいます。
元の1行目が、1～12であれば、元の2行目は13～24に書き込まなければなりませんので、range()の引数を元の行の値によって変えなければなりません。
元の行数は変数aに入っています。宛先の行数はそれを使って計算で求められます。

Comments

[akubareto]

ご回答ありがとうございます。
貼り付けの処理の行番号の指摘について、宛先の行数の求め方をお手数お掛けしますがご教示頂けますでしょうか。
宜しくお願い致します。

[TakaiY]

開始行は、1, 13, 25, 37 になるので、 aが1,2,3... であれば、
(a-1)*12+1
が開始行ですね。

[akubareto]

ありがとうございました！
無事作動しました。

Answer 2

act関数の中身はよくわかりませんが、for文の中で毎回act(6)を実行するからインクリメントされないのでは？引数がyを含まないので同じ処理を繰り返すと思います。

Comments

[akubareto]

ご回答ありがとうございます。
確かに引数が固定になってました・・・ありがとうございます。