[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『表示列のみコピーして貼り付けるには』(pq)
こんにちわ。
このコードだと非表示列までコピーしてしまいます。
非表示列は無視して、表示列だけコピペするには
どうコードを書きかえればいいでしょうか?
Sub Macro1()
Application.ScreenUpdating = False
Dim oB As Workbook ' Oブック Dim aB As Workbook ' Aブック
Set oB = Workbooks("Oブック.xlsm") Set aB = Workbooks("Aブック.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 >
でどうだろう
(ashu) 2017/03/28(火) 15:05
(11) 2017/03/28(火) 15:17
コメントありがとうございます。
恐らく選択範囲が上手くいきませんでした><
H〜Tまでを範囲としているのですが、J〜Qは非表示にしています。
なのでHIRSTを範囲に指定したいです。。。
(pq) 2017/03/28(火) 15:27
かな?
(ashu) 2017/03/28(火) 15:43
>CurrentRegion.SpecialCells(xlVisible).Copy Range("H7", .Range("H7").End(xlDown)).Resize(, 5)
下記のコードを使う場合ですとの、書き変えないと動作しませんか?
差支えなければ教えてください!
Sub Macro1()
Application.ScreenUpdating = False
Dim oB As Workbook ' Oブック Dim aB As Workbook ' Aブック
Set oB = Workbooks("Oブック.xlsm") Set aB = Workbooks("Aブック.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
(pq) 2017/03/28(火) 16:10
出来ました^^
ありがとうございます!!
(pq) 2017/03/28(火) 16:11
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.