Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

933 / 76735

←次へ　｜　前へ→


	【81462】for next ループ

J - 20/8/18(火) 7:43 -


	引用なし

	パスワード

以下の別ブックからのコピペのループがうまくいかず頭を抱えております・・・
ご指南頂けると幸いです。

WBsaki.Worksheets(1).Range("A2:A9").Value = WBmoto.Worksheets(1).Range("C5:C12").Value
WBsaki.Worksheets(1).Range("B2:B9").Value = WBmoto.Worksheets(1).Range("D5:D12").Value
WBsaki.Worksheets(1).Range("C2:C9").Value = WBmoto.Worksheets(1).Range("A4").Value
WBsaki.Worksheets(1).Range("D2:D9").Value = WBmoto.Worksheets(1).Range("I5:I12").Value
WBsaki.Worksheets(1).Range("E2:E9").Value = WBmoto.Worksheets(1).Range("J5:J12").Value
　　
WBsaki.Worksheets(1).Range("A10:A17").Value = WBmoto.Worksheets(1).Range("L5:L12").Value
WBsaki.Worksheets(1).Range("B10:B17").Value = WBmoto.Worksheets(1).Range("M5:M12").Value
WBsaki.Worksheets(1).Range("C10:C17").Value = WBmoto.Worksheets(1).Range("A4").Value
WBsaki.Worksheets(1).Range("D10:D17").Value = WBmoto.Worksheets(1).Range("R5:R12").Value
WBsaki.Worksheets(1).Range("E10:E17").Value = WBmoto.Worksheets(1).Range("S5:S12").Value
　　
WBsaki.Worksheets(1).Range("A18:A25").Value = WBmoto.Worksheets(1).Range("U5:U12").Value
WBsaki.Worksheets(1).Range("B18:B25").Value = WBmoto.Worksheets(1).Range("V5:V12").Value
WBsaki.Worksheets(1).Range("C18:C25").Value = WBmoto.Worksheets(1).Range("A4").Value
WBsaki.Worksheets(1).Range("D18:D25").Value = WBmoto.Worksheets(1).Range("AA5:AA12").Value
WBsaki.Worksheets(1).Range("E18:E25").Value = WBmoto.Worksheets(1).Range("AB5:AB12").Value
　　
WBsaki.Worksheets(1).Range("A26:A33").Value = WBmoto.Worksheets(1).Range("AD5:AD12").Value
WBsaki.Worksheets(1).Range("B26:B33").Value = WBmoto.Worksheets(1).Range("AE5:AE12").Value
WBsaki.Worksheets(1).Range("C26:C33").Value = WBmoto.Worksheets(1).Range("A4").Value
WBsaki.Worksheets(1).Range("D26:D33").Value = WBmoto.Worksheets(1).Range("AJ5:AJ12").Value
WBsaki.Worksheets(1).Range("E26:E33").Value = WBmoto.Worksheets(1).Range("AK5:AK12").Value
　
WBsaki.Worksheets(1).Range("A34:A41").Value = WBmoto.Worksheets(1).Range("C15:C22").Value
WBsaki.Worksheets(1).Range("B34:B41").Value = WBmoto.Worksheets(1).Range("D15:D22").Value
WBsaki.Worksheets(1).Range("C34:C41").Value = WBmoto.Worksheets(1).Range("A14").Value
WBsaki.Worksheets(1).Range("D34:D41").Value = WBmoto.Worksheets(1).Range("I15:I22").Value
WBsaki.Worksheets(1).Range("E34:E41").Value = WBmoto.Worksheets(1).Range("J15:J22").Value

WBsaki.Worksheets(1).Range("A42:A49").Value = WBmoto.Worksheets(1).Range("L15:L22").Value
WBsaki.Worksheets(1).Range("B42:B49").Value = WBmoto.Worksheets(1).Range("M15:M22").Value
WBsaki.Worksheets(1).Range("C42:C49").Value = WBmoto.Worksheets(1).Range("A14").Value
WBsaki.Worksheets(1).Range("D42:D49").Value = WBmoto.Worksheets(1).Range("R15:R22").Value
WBsaki.Worksheets(1).Range("E42:E49").Value = WBmoto.Worksheets(1).Range("S15:S22").Value

WBsaki.Worksheets(1).Range("A50:A57").Value = WBmoto.Worksheets(1).Range("U15:U22").Value
WBsaki.Worksheets(1).Range("B50:B57").Value = WBmoto.Worksheets(1).Range("V15:V22").Value
WBsaki.Worksheets(1).Range("C50:C57").Value = WBmoto.Worksheets(1).Range("A14").Value
WBsaki.Worksheets(1).Range("D50:D57").Value = WBmoto.Worksheets(1).Range("AA15:AA22").Value
WBsaki.Worksheets(1).Range("E50:E57").Value = WBmoto.Worksheets(1).Range("AB15:AB22").Value

WBsaki.Worksheets(1).Range("A58:A65").Value = WBmoto.Worksheets(1).Range("AD15:AD22").Value
WBsaki.Worksheets(1).Range("B58:B65").Value = WBmoto.Worksheets(1).Range("AE15:AE22").Value
WBsaki.Worksheets(1).Range("C58:C65").Value = WBmoto.Worksheets(1).Range("A14").Value
WBsaki.Worksheets(1).Range("D58:D65").Value = WBmoto.Worksheets(1).Range("AJ15:AJ22").Value
WBsaki.Worksheets(1).Range("E58:E65").Value = WBmoto.Worksheets(1).Range("AK15:AK22").Value

0 hits

▼

【81462】for next ループ J 20/8/18(火) 7:43