[[20200804001231]] 『離れた可視セル列をコピー』(ピノ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『離れた可視セル列をコピー』(ピノ)

お世話になります。

可視セルをコピーで、離れた複数列を
コピーすることは可能でしょうか。

以下のように記載してみましたがうまく行かず…。
アドバイス頂けたら幸いです。

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


もこな2様

失礼しました。

構文修正、有難うございます!

タイプミスだったようです。失礼しました。

※返信投稿もうまくいっておらず、遅れてすみませんでした…
(ピノ) 2020/08/05(水) 11:20


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.