シート1にA~AZ列までのデータがあります。
これを全て配列に入れて呼び出す方法を教えてください。
シート1のデータをシート2へ貼り付けたいです。
貼り付ける列は、順序がバラバラでA~L、AZ、Q、AA、AF、Wの順に
シート2のA列から貼り付けたいです。
貼り付けるとA~Q列にデータが入るようになります。
1行目は項目なので貼り付ける必要はありません。
データは2行目からとなっています。
シート1はテーブルになっているので、そのまま貼り付けると
書式まで貼り付いてしまいます。
書式まで貼り付くと困るので、貼り付ける値は、値のみ貼り付けで行いたいです。
マクロのコードを教えてください。
出来れば、コードの解説もお願いしたいです。
宜しくお願いします。
No.1ベストアンサー
- 回答日時:
こんにちは
作成方法は十人十色なので、一例です。
Sub sample_12297128()
' 使用変数の宣言
Dim sh1, sh2
Dim cData, d, c, n
' シートを変数にセット
Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")
' コピー対応データ定義
cData = Split("A2:L A2:L,AZ M,Q N,AA O,AF P,W Q", ",")
' 使用最終行を取得
n = sh1.UsedRange.SpecialCells(xlCellTypeLastCell).Row
n = Application.Max(n - 1, 1)
' データに基づいて各列を順にコピー(繰り返し)
For Each d In cData
' データから対応列を取得
c = Split(d, " ")
' 対応列内の値をコピー
sh2.Range(c(1) & "2").Resize(n).Value = sh1.Range(c(0) & "2").Resize(n).Value
' 繰り返し終了
Next d
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBA セルの値と同じ名前のシートにデータを貼り付けするやり方を教えてください 2 2022/05/17 16:26
- その他(Microsoft Office) エクセルマクロ オートフィルターでで選択コピー 2 2022/04/18 11:05
- Excel(エクセル) エクセルシートのデータを1列飛ばしで別ブックのシートに貼り付けるマクロが知りたい 2 2023/06/05 22:37
- Visual Basic(VBA) VBAを使いシート間で貼り付け 3 2023/03/14 20:53
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Visual Basic(VBA) 指定月分の顧客データファイルを統合して並べ替え、所定の場所に貼り付ける 3 2022/09/10 07:55
- Visual Basic(VBA) 集計シートA列のコードと一致する右に並んだシート名(コード)の3行目から10行目をコピーして貼り付け 4 2022/08/18 15:24
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/25 11:55
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
文字の色も参照 VLOOKUP
-
ExcelのVlookup関数の制限について
-
VBAで繰り返しコピーしながら下...
-
エクセルの保護で、列の表示や...
-
Excel の複数シートの列幅を同...
-
エクセルで横並びの複数データ...
-
エクセルで、チェックボックス...
-
エクセルのブック分割マクロを...
-
エクセルで、book全体の検索&...
-
エクセル マクロ 標準モジュー...
-
Excelでの並べ替えを全シートま...
-
エクセルの複数シートにあるデ...
-
エクセルの列の限界は255列以上...
-
SUMPRODUCTにて別シートのデー...
-
Excel複数シートにあるデータを...
-
Excelで全てのシートに一気に列...
-
エクセルの表を自動的に、項目...
-
VBAで項目ごとにシートを分けた...
-
エクセルVBA 行追加時に自...
-
エクセルシートのデータを1列飛...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelのVlookup関数の制限について
-
文字の色も参照 VLOOKUP
-
オートフィルタ使用時にCOUNTIF...
-
エクセルの保護で、列の表示や...
-
VBAで繰り返しコピーしながら下...
-
エクセル関数に詳しい方、教え...
-
【条件付き書式】countifsで複...
-
Excel の複数シートの列幅を同...
-
エクセル マクロ 標準モジュー...
-
エクセルで横並びの複数データ...
-
エクセルの列の限界は255列以上...
-
Excelでの並べ替えを全シートま...
-
VLOOKアップ関数の結果の...
-
SUMPRODUCTにて別シートのデー...
-
エクセルで、チェックボックス...
-
Excel VBA ピボットテーブルに...
-
【エクセル】1列のデータを交...
-
エクセルVBAで、ある文字を含ん...
-
エクセルのブック分割マクロを...
-
excel 複数のシートの同じ場所...
おすすめ情報