[[20170328142223]]　『表示列のみコピーして貼り付けるには』（ｐｑ）　ページの最後に飛ぶ

『表示列のみコピーして貼り付けるには』（ｐｑ）

こんにちわ。

このコードだと非表示列までコピーしてしまいます。
非表示列は無視して、表示列だけコピペするには
どうコードを書きかえればいいでしょうか？

Sub Macro1()

 Application.ScreenUpdating = False

        Dim oB As Workbook    ' Ｏブック
        Dim aB As Workbook    ' Ａブック

        Set oB = Workbooks("Ｏブック.xlsm")
        Set aB = Workbooks("Ａブック.xlsm")

        With oB.Worksheets("Sheet1")
    .Range("H7", .Range("H7").End(xlDown)).Resize(, 5).Copy

    aB.Worksheets("Sheet3").Range("A5").PasteSpecial xlPasteValues
    End With

 Application.ScreenUpdating = True

End Sub

よろしくお願いします。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

.Range("H7", .Range("H7").End(xlDown)).Resize(, 5).SpecialCells(xlCellTypeVisible).Copy

でどうだろう
（ashu） 2017/03/28(火) 15:05

CurrentRegion.SpecialCells(xlVisible).Copy　Range("H7", .Range("H7").End(xlDown)).Resize(, 5)

（11） 2017/03/28(火) 15:17

（ashu）様

コメントありがとうございます。

恐らく選択範囲が上手くいきませんでした＞＜

H～Tまでを範囲としているのですが、J～Qは非表示にしています。

なのでHIRSTを範囲に指定したいです。。。

（ｐｑ） 2017/03/28(火) 15:27

.Range("H7", .Range("H7").End(xlDown)).Resize(, 13).SpecialCells(xlCellTypeVisible).Copy

かな？
（ashu） 2017/03/28(火) 15:43

（11）様

＞CurrentRegion.SpecialCells(xlVisible).Copy　Range("H7", .Range("H7").End(xlDown)).Resize(, 5)

下記のコードを使う場合ですとの、書き変えないと動作しませんか？
差支えなければ教えてください！

Sub Macro1()

 Application.ScreenUpdating = False

        Dim oB As Workbook    ' Ｏブック
        Dim aB As Workbook    ' Ａブック

        Set oB = Workbooks("Ｏブック.xlsm")
        Set aB = Workbooks("Ａブック.xlsm")

        With oB.Worksheets("Sheet1")
    .Range("H7", .Range("H7").End(xlDown)).Resize(, 5).Copy

    aB.Worksheets("Sheet3").Range("A5").PasteSpecial xlPasteValues
    End With

 Application.ScreenUpdating = True

End Sub

（ｐｑ） 2017/03/28(火) 16:10

（ashu）様

出来ました＾＾
ありがとうございます！！
（ｐｑ） 2017/03/28(火) 16:11

コメント返信：