エクセルのセルを参照して別シートに張り付ける２

質問

こんにちは。

エクセルのsheet１とsheet2があり、sheet1のセルに入力されている文字や数値をsheet2にコピーしたいと思っています。（sheet2には値として張り付けたい）

＜条件＞

sheet1の3行目から下（3000行目まで）をコピーしてsheet2の2行目から下（3000行目まで）に張り付けたい。

しかし、下記のように列も入れ替えたい。下記以外はコピーしない。

sheet1　　　sheet2
　A　　→　　A
　G　　→　　B
　H　　→　　I
　M　　→　　G
　Q　　→　　K
R＋S　 →　　L　　（sheet1のR列とS列の文字を結合したもをsheet2のL列に）
　T　　→　　M
　U　　→　　N

このような作業を1回で行うことはできるのでしょうか？
よろしくお願いします。

回答No.1

keithin · ベストアンサー

＞sheet1の3行目から下（3000行目まで）をコピーしてsheet2の2行目から下（3000行目まで）に張り付けたい。

「３行目」と「２行目」が誤記のようですので，適切にマクロを修正してください。

sub macro1()
　dim r as long
　r = 3000

　worksheets("Sheet2").select
　with worksheets("Sheet1")
　　range("A3:A" & r).value = .range("A3:A" & r).value
　　range("B3:B" & r).value = .range("G3:G" & r).value
　　range("I3:I" & r).value = .range("H3:H" & r).value
　　range("G3:G" & r).value = .range("M3:M" & r).value
　　range("K3:K" & r).value = .range("Q3:Q" & r).value
　　range("M3:M" & r).value = .range("T3:T" & r).value
　　range("N3:N" & r).value = .range("U3:U" & r).value
　　range("L3:L" & r).formula = "=Sheet1!R3&Sheet1!S3"
　　range("L3:L" & r).value = range("L3:L" & r).value
　end with
end sub

お礼

3行目と2行目は誤記ではありませんが、上記マクロを修正して試してみます。

早々に回答いただき、ありがとうございました。

回答No.2

imogasi

同じような質問を先ほどして、回答を受けたのではないか。
同じことを繰返して聞いても、このことはＶＢＡを出来ないと、すっきりは出来ない。
質問者はそのことは何にも書いてないが、質問振りから推定して出来ないのだろう。だから貼り付けるときエクセルの操作では、列の対応関係を聞いてくる、ダイアロウグが出ない以上は、出来ない。
ーー
列の配置
ただ、形式を選択して貼り付けー値でＳｈｅｅｔ１とそっくり同じ列順にＳｈｅｅｔ２に一旦貼り付け
１行の行を上の方に挿入し、そこに並べたい順に適当な数字（よく考えて決めること）を入れて、並べ替えで、その入れた数字の順に列単位でソートするのはどうかな。例えば、Ａ列１，Ｂ列３，Ｃ列２と数字を入れて、列でソートすると１，２，３の順になるであろう。
ーー
２列データを加えた列
足した列を作るのは１つの方法として
Ａ、Ｂ，Ｃ列（Ｂ列は下記の操作後変わってしまうので、Ｃ列にコピーしておく、確認用で、Ｃ列は参考）
1 23 23
2 36 36
3 19 19
今Ａ列Ａ２：Ａ４を範囲指定してコピー
Ｂ２：Ｂ４を範囲指定して
形式を選択して貼り付けー加算
で
Ｂ２：Ｂ４は
24
38
22
となる。本番では、これの行数の多いも（列全体）のをやれば。
ーー
24
38
22
＝＝＝＝
ＶＢＡをコツコツとはじめるなら
マクロに記録というのを取る状態にして
少数行（１０行程度）のデータで、したいことを、シート上で、１歩１歩質問者が操作し（コピーー貼り付けが中心）て、その操作がコード化されるから、どういうコードになるかを勉強したら。
そして本番では何処をどう変えるべきか考える。

お礼

アドバイスありがとうございました。
参考にさせて頂きます。