[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『コピペする範囲をずらしたいです』(マクロ初心者)
前任の方が作ったマクロを修正したく、質問させていただきます。
初心者なので質問が不十分の場合はご教示ください。
〜略〜
Workbooks.Open Filename:=(File1(Counter1))
Worksheets("Sheet1").Select
Workbooks("Book1.xlsm").Activate
If ActiveCell.Offset(1, 0) = 1 Then
Range(Selection, Selection.Columns("C:H")).Select
Selection.Copy
Else
Range(Selection, Selection.Columns("C:H")).Select
Range(Selection, Selection.End(xlDown).Offset(-1, 0)).Select
Selection.Copy
End If
〜略〜
上記のマクロを使用すると、Book1のB:Hをコピーして、
呼び出したファイルのSheet1にB:Hを貼り付けという動作を行います。
このコピー範囲をBook1のC:Hにしたいです。
よろしくお願いします。
< 使用 Excel:unknown、使用 OS:unknown >
Workbooks.Open Filename:=(File1(Counter1)) Worksheets("Sheet1").Select
Workbooks("Book1.xlsm").Activate Intersect(Range(Selection, Selection.End(xlDown).Offset(-1, 0)).EntireRow, Columns("C:H")).Copy
これできっとご希望の働きはしてくれると思います。
元に戻したいときは上記Columns("C:H")をColumns("B:H")にしてください。
(ふなば) 2023/01/31(火) 17:41:55
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.