質問: .cells(2, 7) next idxa end with end sub 以前質問して教えていただいたものを参考に、少し変更してみたのですがこれで正しいでしょうか?実行するとうまく転記するのですがかなり時間がかかってしまい、もう少し何とかならないものかと思っています。どなたかご指導お願いします。
回答: lasta と idxa のループは使われてないような、、、 あまり変わらないような気もしますが、※の1~3を消すと早くなりますか? あと、対象シートは計算式がいっぱいのシートですか? with worksheets("sheet3") lasta = .range("a1000").end(xlup).row '※1 trga = application.match(.cells(2, 6), worksheets("sheet1").range("a:a"), 0) for idxa = lasta to 3 step -1 '※2 trgb = application.match(.cells(2, 4), worksheets("sheet1").range("2:2"), 0) worksheets("sheet1").cells(trga, trgb) = .cells(2, 7) next idxa '※3 end with