| |
下記内容ご教授頂けましたら幸いです。
データの転記を行いたいのですが、コピー先のシートへの転記が思ったように行えず質問させて頂きました。
コピー先の貼り付け位置の取得がうまくできず、数値入力が行えているセルに数値が上書きされてしまう状態です。
データを転記する度に下段のセルにデータが入力されるようにしたいのですが、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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
