[[20200509180158]]　『別シートへの転記VBAについて』（ひろ）　ページの最後に飛ぶ

『別シートへの転記VBAについて』（ひろ）

Sheet1の、B9,B11,B13,B15,B17,B19,B21,B23セルを
Sheet2のI3,I4..以降続けて転記させたい場合、以下のプログラムを
CellsではなくRangeに変更しなければならないのでしょうか?
Rangeに変更してもうまく作動せず、、

お分かりの方いましたらご教授ください。

※下記の式は、繰り返し処理をさせるときのもので、
3~17行目まで、などは不要かと。

Sub Test2()

  Dim Row As Long
  For Row = 3 To 17                           '3行目～17行目まで
    Cells(Row, 9).Value = Cells(Row, 3).Value '各行のJ列←各行のC列
  Next                                        '繰り返す

  End Sub

＜使用 Excel：Office365、使用 OS：Windows10 ＞

そのコードのどこにも、シート名がでてこないのは、なぜですか。

（マナ） 2020/05/09(土) 18:19

マナさん

コメントありがとうございます。
このコードは1つのシート内で試しにしていたのでシート名は出てきません。

シートをまたいでの転記の場合の書き方が分からず、書けません。。。
（ひろ） 2020/05/09(土) 18:29

Sheet1のB9から　Sheet2のI3への転記は

Worksheets("Sheet2").Cells(3, 9).Value=Worksheets("Sheet1").Cells(9, 2).Value

（マナ） 2020/05/09(土) 18:45

[[20200509212205]]　『セルを指定する式の書き方』（ひろ）
[[20200510014614]]　『Offset関数の書き方について』（ひろ）

（マナ） 2020/05/10(日) 15:40

コメント返信：

[ 一覧(最新更新順) ]

[[20200509180158]] 『別シートへの転記VBAについて』（ひろ） ページの最後に飛ぶ

[[20200509180158]]　『別シートへの転記VBAについて』（ひろ）　ページの最後に飛ぶ