EXCEL VBAでA列からF列まである表のB列とF列を選択して別シートに同時にコピーしたい。

前提
EXCEL シートにA列からF列までの表があります。

やりたいこと
この表のB列とF列のみを選択して別シートに同時にコピーしたい。

困っていること
一列づつコピーして別シートに貼り付けすることはできるのですが
何度も同じcodeを書くことに抵抗を感じています。
vba codeをもっと簡単にしたいのですがその方法がわかりません。
もっと良い方法をご存知でしたらご教授をお願いいたします。

Sub Copy_Original()
       
    Range("B3:B10000").Select
    Selection.Copy
    Sheets("sheet2").Select
    Range("A3").Select
    ActiveSheet.Paste
 
    Sheets("sheet1").Select
    Range("F3:F10000").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValues
 
End Sub

行動規範の内容に同意します

回答2件

vba
1Sub Copy_Original()
2
3    Worksheets("Sheet1").Range("B3:B10000,F3:F10000").Copy Worksheets("Sheet2").Range("A3")
4
5End Sub

Office TANAKA - VBA高速化テクニック[Selectしない]

投稿2020/10/30 11:02

編集2020/10/30 11:03

hatena19

総合スコア34075

ベストアンサー

Range でB列,F列をコンマ区切りで記入するのはいかがでしょうか。
例えば次のような形です。

VBA
1Sub Copy_Original()
2
3    Range("B3:B10000,F3:F10000").Select
4    Selection.Copy
5    Sheets("sheet2").Select
6    Range("A3").Select
7    ActiveSheet.Paste
8
9End Sub