VBA UNIONメソッドについて

Question

オートフィルターで抽出したデータを、３列(S,G,k列）をコピーし、他のシートに
貼り付けたい。
Union(.Columns("S"),.Columns("G"), .Columns("K")).Copy
でまとめて貼り付けようとしましたが、G列、K列、S列の順番に
貼り付けられてしまいます。どこを修正すればうまく貼り付けられるか
教えてください。

    With ActiveSheet.AutoFilter.Range
        .AutoFilter field:=1, Criteria1:=key
        If .Columns(1).SpecialCells(xlCellTypeVisible).Count > 1 Then
            With .Resize(.Rows.Count - 1).Offset(1)
                Union(.Columns("S").Columns("G"), .Columns("K")).Copy
            End With
        End If

コード

Answer 1

Unionメソッドでは列の順番は変更できないかと思います。※オプションがないです
Union メソッド (Excel)
順番を変更するには1列ずつコピー＆ペーストするのが良さそうです。

Comments

[koko2]

列の順番まで変更できないことや、Union メソッドの詳細な説明ありがとうございました。

Answer 2

フィルターオプションの機能には、
別シートへのコピペの機能のほか、
列の入れ替え等も機能に内包されています。
そちらを使うのが便利です。

Comments

[koko2]

回答ありがとうございました。”フィルターオプションの機能”というものを検索してみます。