[[20221129153147]] 『範囲を指定した右端の空白セルへ貼り付けたい』(リオ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) |

| 全文検索 | 過去ログ ]

 

『範囲を指定した右端の空白セルへ貼り付けたい』(リオ)

列の項目として横に4月〜3月(C列からN列まで)並んだ表があります。
9月まではデータが入っていますが空白の月10月分のデータとして「Range("Q9:Q22").Copy」して貼り付けたいのですが下記コードを変更することで可能でしょうか。教えてください。

Sub test1()
Worksheets("A表").Range("Q9:Q22").Copy
Cells(9, Columns.Count).End(xlToLeft).Offset(, 1).PasteSpecial Paste:=xlPasteValues
End Sub

< 使用 Excel:Office365、使用 OS:Windows10 >


 >空白の月10月分のデータとして?
(?) 2022/11/29(火) 17:13:00

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.