Excel VBA質問箱 IV

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

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


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

119 / 76807

←次へ　｜　前へ→


	【82359】コピーしたデータを空白セルに追加していきたい

すぺぺぺ - 24/8/26(月) 21:12 -


	引用なし

	パスワード

下記内容ご教授頂けましたら幸いです。

データの転記を行いたいのですが、コピー先のシートへの転記が思ったように行えず質問させて頂きました。
コピー先の貼り付け位置の取得がうまくできず、数値入力が行えているセルに数値が上書きされてしまう状態です。
データを転記する度に下段のセルにデータが入力されるようにしたいのですが、WS2の貼り付け位置の指示をどのように行えば思ったように入力されるでしょうか。

Sub データ転記()
'シートを変数にセット
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Worksheets("コピー元")
Set ws2 = Worksheets("コピー先")

'ws2の貼り付け位置
x = ws2.Range("A1").End(xlDown).Row
If x = Rows.Count Then x = 1 Else x = x + 1

ws1.Range("H3").Copy
ws2.Range("A" & x).PasteSpecial xlPasteValues

ws1.Range("B3").Copy
ws2.Range("B" & x).PasteSpecial xlPasteValues

ws1.Range("C15").Copy
ws2.Range("C" & x).PasteSpecial xlPasteValues

'コピー指定解除
　　Application.CutCopyMode = False

End Sub

0 hits

▼

【82359】コピーしたデータを空白セルに追加していきたい すぺぺぺ 24/8/26(月) 21:12