[[20200812130452]]　『別シートのセルの値を貼り付ける方法』（まりも）　ページの最後に飛ぶ

『別シートのセルの値を貼り付ける方法』（まりも）

1行目はタイトルです

C列に値が有る時
セルH22をA列へ
セルH24をB列へ
コピーを貼り付けるにはどうしたらいいですか

教えてください

Sub データ()

Dim ws1 As Worksheet
Dim ws2 As Worksheet

Set ws1 = Worksheets("AA")
Set ws2 = Worksheets("BB")

    ws1.Range("H22").Copy
    ws2.Range("A2").Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

     ws1.Range("H24").Copy
    ws2.Range("B2").Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

End Sub

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

コピーを貼るとは、どういう意味でしょう？ご提示のコードで貼れますよね？
（なんか、余計なSelectionとか付けてますが、これを消すだけ）
（???） 2020/08/12(水) 13:26

今のままだとA2とB2しか貼りつけられていないです

D列～H列まで別ブックのデーターをコピペします
そのA列とB列に全部コピペしたいんです

D列～H列はデーターが追加されます
追加された時のH22とH24です

（まりも） 2020/08/12(水) 13:35

1セルしかコピーしていないから、1セルしか貼り付けられないのは当然です。複数行コピーすれば、複数行貼れますよ。

手っ取り早いのは、H2:H999 とか、多めにコピーしてしまう事です。無駄なコピーはしたくない、とか考えるなら、Rows.Countを利用した例が沢山転がっていますから、調べてみてください。
（???） 2020/08/12(水) 14:15

なんか皆さん勘違いです

1セルしかないんです

別ブック1をコピーして
ブック2のシート2のD列～H列に貼りつけ
ブック2のシート3のH22とH24を
ブック2のシート2のA列とB列へ貼り付けたいんです

（まりも） 2020/08/12(水) 14:46

C列 D列 E列 F列 G列 H列
12 34 12 34 12 34
34 56 34 56 34 56
56 78 56 78 56 78
78 12 78 12 78 12

例えば
ブック1をコピーして
ブック2に上のように7行目から10行目まで貼り付けたとします
ブック2のシート3にあるH22を7行目から10行目のA列に
ブック2のシート3にあるH24を7行目から10行目のB列に

A列 B列 C列 D列 E列 F列 G列 H列
あい 12 34 12 34 12 34
あい 34 56 34 56 34 56
あい 56 78 56 78 56 78
あい 78 12 78 12 78 12

（まりも） 2020/08/12(水) 14:59

私の回答がひとつ消えてる…。かちあった？

書き直しは面倒なので、例だけ。

    ws2.Range("A2:A10").Value = ws1.Range("H22").Value
（???） 2020/08/12(水) 15:39

私が回答消してますか？
ごめんなさい

おかげでA列とB列にコピーできるようになりました
どうもです

（まりも） 2020/08/12(水) 16:00

コメント返信：

[ 一覧(最新更新順) ]

[[20200812130452]] 『別シートのセルの値を貼り付ける方法』（まりも） ページの最後に飛ぶ

[[20200812130452]]　『別シートのセルの値を貼り付ける方法』（まりも）　ページの最後に飛ぶ