VBA 離れた列の選択

Question

前提・実現したいこと

オートフィルターで選択した、２列（G列とK列)を選択し、別シートに貼り付けようとしましたが、列の選択でデバックとなります。

該当のソースコード

With Sheets("sample").AutoFilter.Range
.AutoFilter field:=1, Criteria1:=Key
.Offset(1).Columns("G","K").Copy

試したこと

.Offset(1).Columns("G","K").Copy
ここでデバックとなります。どのように修正すればいいか、ご教示ください。

ここにより詳細な情報を記載してください。

Answer 1

Sub test()
    Dim key As String

    key = 3
    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("G"), .Columns("K")).Copy
            End With
        End If
    End With
End Sub

Columnsプロパティでは、飛び飛びの列を指定できないので、
Union関数で、各列の和集合を求めて纏めます。

あと、コピーする前に抽出された件数を数えたほうがよいですし、
コピーするときはリサイズして、データ範囲に絞った方が、
他に影響がないかもです。
Offsetだけだと、表の1行下もコピーしちゃうので。
他に影響がなければ僕も横着してオフセットしか書かないですけど。

参考になれば。

Comments

[koko2]

ありがとうございます。できました。
さらに、1行下もコピーしていたので、どうしてなのか困っていたので２つも解決できてよかったです。

[koko2]

すみませんが、教えていただきたいことがあるのですが。この場合新規に質問を再登録したほうがいいのでしょうか？

[mattuwan]

その方が、誰かの目についていいのでは？
仕事で回答しているわけではないので、
特定の個人を指名して質問するのは回答者の負担にもなります。
たまたま、見かけて回答できる時間があれば回答します。

今回の質問と関連があるなら、ここのリンクを貼りつけて、
新たに質問してください。

[koko2]

承知いたしました。ご連絡ありがとうございました。