エクセルのＶＢＡで教えてください（初心者）

質問

シート1とシート２があり、シート1には、データが何行か（不特定）あり、シート２の方に必要な列（下記の場合はＡ、Ｄ、Ｅ）だけ、コピーをする方法を教えてください。宜しくお願いします。　

シート1　（何行あるかわからない）
Ａ　Ｂ　Ｃ　Ｄ　Ｅ　
1 ○　◆　◇　×　●
2　△　◎　△　▲　Ｘ
3　▽　１　５　Ｖ　ａ
4　２　￥　■　〒　←
　　　　↓
10 ★　□　▼　％　☆

シート２（Ｂ．Ｃ列は不要）
Ａ　Ｄ　Ｅ　
1 ○　×　●
2　△　▲　Ｘ
3　▽　Ｖ　ａ
4　２　〒　←
　　　　↓
10 ★　％　☆

回答No.3

MIYABF5D · ベストアンサー

単純に・・・

Sub まくろ()
Range("A:A,D:E").Select
Selection.Copy
Sheets("Sheet2").Select
ActiveSheet.Paste
End Sub

こんなんでどうですか？
単純すぎでしたら補足よろしく

お礼

あっという間にシートの動きもあってよかったと思います。ありがとうございました。

回答No.5

urdapple

あ、ごめんなさい。
ANo.4のurdappleですが、ANo.1のYeti21さんと答えかぶってました（￣▽￣；）＜めんぼくね・・・

回答No.4

urdapple

Sub まっくろ()
Sheets("Sheet1").Range("A:A,D:E").Copy
Sheets("Sheet2").Paste
End Sub

もっと簡単にこれじゃだめ？
ユーザに動きを見せる必要が無ければ、selectする必要はないっすよ。

回答No.2

noname#22222

エクセルは操作したことがない門外漢です。
が、過去の回答を見ているとマクロの記録なる便利な機能があるようです。

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2006/9/29　ユーザー名 :　xxxxxx
'

'
　　Range("A1:A38").Select
　　Selection.Copy
　　Sheets("Sheet2").Select
　　ActiveSheet.Paste
End Sub

例えば、A1～A38をシート２にコピーする操作を記録したマクロはこのようです。
これをチクッと弄（いじ）れば、何とかなりそうだと思います。

お礼

ありがとうございます。複数の列を指定するとなると、少しいじくる必要がありますね。初心者ですのでその辺も教えていただければ助かりますね。

回答No.1

Yeti21

簡単な一例ですので、応用が必要です。

Sheets("Sheet1").Range("A:A,D:D,E:E").Copy
Sheets("Sheet2").Paste

お礼

早速のご回答、ありがとうございました。確かに簡単なコードですね。これで十分ですね。