| |
以下の別ブックからのコピペのループがうまくいかず頭を抱えております・・・
ご指南頂けると幸いです。
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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
