VBAで任意の列を指定し別のシートにコピーしたい。

前提・実現したいこと

シートの1行目で特定の文字列が含まれる列を検索し、
該当する列を複数選択して新しい別のシートにコピーしたいです。

考えているソースコード

vba
1任意の変数1 = Range("1:1").Find("特定の文字列1")
2任意の変数2 = Range("1:1").Find("特定の文字列2")
3任意の変数3 = Range("1:1").Find("特定の文字列3")
4
5Sheets.Add.Name = "新しいシート名"
6
7Range(" & _
8  任意の変数1 & ":"  & 任意の変数1, _
9  任意の変数2 & ":"  & 任意の変数2, _
10  任意の変数3 & ":"  & 任意の変数3 _
11 & ").Select
12
13Selection.Copy
14Sheets("新しいシート名").Select
15ActiveSheet.Paste

上記のようにコードを書いてみたところ、
コンパイルエラー：構文エラーとなってしまいました...。

かなり無理のある書き方だとは思っているのですが、
どのように改善すればやりたいことが実現できるかわかりません...。
差支えなければご教授頂けると幸いです。

m.ts10806

2019/06/18 14:30

質問サイトなので「質問」以外はないと思います。タイトルの最初の「質問：」は不要かと思います。

KM46

2019/06/18 15:06

修正しました。

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

回答2件

ベストアンサー

まず、コードを書く時に下記について意識して書くと、読みやすく、バグの発生しにくい、安定したコードを書くことかできます。

変数宣言をする。そのとき型は省略しない。
Range, Cells などの前のシート参照を省略しない。
Select はしない。しなくてもたいていのことはできるし、しない方が高速かつ安全です。

あとは、複数のセル範囲を参照する場合は、Unionメソッドを使った方ががいいです。

複数のセルを併せて参照する(Unionメソッド)：Excel VBA｜即効テクニック｜Excel VBAを学ぶならmoug

ということで、自分が書くならというコード例を参考までに・・・

vba
1Public Sub 複数列コピー()
2    Dim 列1 As Range, 列2 As Range, 列3 As Range
3    Dim コピー範囲 As Range
4    With ActiveSheet
5        Set 列1 = .Range("1:1").Find("年").Resize(Rows.Count)
6        Set 列2 = .Range("1:1").Find("製品").Resize(Rows.Count)
7        Set 列3 = .Range("1:1").Find("売り上げ").Resize(Rows.Count)
8        Set コピー範囲 = Union(列1, 列2, 列3)
9    End With
10        
11    Dim ws As Worksheet
12    Set ws = ActiveWorkbook.Sheets.Add(After:=ActiveSheet)
13    ws.Name = "新しいシート名"
14    コピー範囲.Copy ws.Range("A1")
15
16End Sub