動画の内容だと処理時間長くなりますね(PCスペックによるでしょうが、数分かかるかと)。 下記内容でアプリケーションの描画処理を止めれば約30秒程度で処理完了しました。 環境：Intel Core i5-3320M CPU, 16GB DDR3 Excel：Microsoft Office Standard 2019 仮想のレコード：3～825行、納品数：1-100(ランダム生成) ↓VBAコード sub insertRows() start_time = Timer Application.ScreenUpdating = False for i = 825 to 3 Step - 1 for x = 1 to cells(i,6).value -1 rows(i+1).Insert next x next i Application.ScreenUpdating = True Debug.Print Timer - start_time end sub
『簡単ならお前がやれよ』←大正解
他人本位なアピールとして取る前提だから悩んだり途中で勉強投げたくなるんだよ。
勉強がそのまま業務効率に使えるのはExcel VBAとRPAでMOSはビミョーだった。
簿記2級はいくら問題解いても作成能力であって諸表の分析能力が育まれない。無駄だとは言わないが、それ取った後にビジネス会計検定や税法、FPと併用して応用を効かせないと宝の持ち腐れになる。
ジャンプで対象の数字選択して、一括で行追加なら3パターンで終わらない？
この作業終えて渡した後、どうせ次の作業(別ファイル参照して貼るみたいなの)も頼まれるから、最終形がどうなるか聞いてちゃんと金も取ってVBA書くべき。
ショートじゃ見にくいです。
ワイ「GPTさん、エクセルさんにコード教えてあげて」
見えん
変数の宣言をしていないし、コードも内容と違う気がしますが気のせいでしょうか。
一応変数は変数宣言の強制をしてなきゃ勝手に判断してくれるから…、
ちゃんと使っていくマクロなら宣言した方がいいけど、やっつけでこの場だけの処理なら時短かなと。
コードは最終行から納品数分行の挿入(x繰り返し)して、1行上へを行数分i繰り返してるから、やりたい内容通りかと。
肝心の内容コードが見えんコード見せろ
sub insertRows()
for i = 825 to 3 Step - 1
for x = 1 to cells(i,6).value -1
rows(i+1).Insert
next x
next i
end sub
@@gogogonininini2896
これ下から順に処理してるのか
賢いな
if文で1~4の場合ってそれぞれ書けば…って
思ったけど、問題ある？
一部分のコードの説明ですかね？
もしIFで書き切ろうとするなら、繰り返し処理にならないので出来ないかなと、、
また一部分コードの話でも場合分けで行が多くなったり、現状6行があったり今後もっと数が多くなれば対応できないので汎用性的にも動画のコードは優秀そうです😅
でもこの内容だと処理時間長そう
動画の内容だと処理時間長くなりますね(PCスペックによるでしょうが、数分かかるかと)。
下記内容でアプリケーションの描画処理を止めれば約30秒程度で処理完了しました。
環境：Intel Core i5-3320M CPU, 16GB DDR3
Excel：Microsoft Office Standard 2019
仮想のレコード：3～825行、納品数：1-100(ランダム生成)
↓VBAコード
sub insertRows()
start_time = Timer
Application.ScreenUpdating = False
for i = 825 to 3 Step - 1
for x = 1 to cells(i,6).value -1
rows(i+1).Insert
next x
next i
Application.ScreenUpdating = True
Debug.Print Timer - start_time
end sub
@@gogogonininini2896unionが行の追加に使えるのか分からないけど、使えるならそっちの方が早そう。