[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『離れた可視セル列をコピー』(ピノ)
お世話になります。
可視セルをコピーで、離れた複数列を
コピーすることは可能でしょうか。
以下のように記載してみましたがうまく行かず…。
アドバイス頂けたら幸いです。
sub test ()
Dim LR as long
LR=Cells(Rows.Count,1).End(Xlup).Row
Range("B1:B"&LR,"AJ1:AJ&LR).SpecialCells(xlCellTypeVisible).Copy
End sub
< 使用 Excel:Excel2016、使用 OS:Windows10 >
>以下のように記載してみましたがうまく行かず…。
↓でも指摘を受けてますが、VBE(エディタ)のコードをそのまま貼り付けたほうがよいです。
[[20200415161137]] 『VBA フィルター後の可視セル、タイトル行以外を選択し、行削除』(ピノ)
どのように"うまく行かない"のかわかりませんが、構文エラーになるのであれば、ただのタイプミスですね。
Sub test() Dim LR As Long
LR = Cells(Rows.Count, 1).End(xlUp).Row Range("B1:B" & LR & ",AJ1:AJ" & LR).SpecialCells(xlCellTypeVisible).Copy End Sub
(もこな2 ) 2020/08/04(火) 07:11
失礼しました。
構文修正、有難うございます!
タイプミスだったようです。失礼しました。
※返信投稿もうまくいっておらず、遅れてすみませんでした…
(ピノ) 2020/08/05(水) 11:20
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.