[[20200516055653]]　『VBAで最終列を取得する際に数式の入ったセルを無氏x（DYSK9）　ページの最後に飛ぶ

『VBAで最終列を取得する際に数式の入ったセルを無視したい』（DYSK9）

VBAで最終列を取得して
最終列の３行目～１８行目をコピーし、
別のブックの指定シートの最終行の３行目から１８行目に
数値を貼付けたいのですが、
数式の入っている空白のセルを無視できずに困っています。

ご教授お願い致します。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 仮に1行目が対象なら
    Dim lastColumn As Long
    lastColumn = Rows(1).find("*", , xlValues, , , xlPrevious).Column

 行を指定しないなら、
    lastColumn = Cells.find("*", , xlValues, , xlByColumns,xlPrevious).Column

 上記のコードのココロは以下。
 これはA1から逆向きに列方向で空白以外を検索しますから、
 結局、シート最終セルから、列方向次に左に向かって検索した結果が得られます。
（γ） 2020/05/16(土) 06:39

上記で上手くいきました！
ありがとうございました。
（DYSK9） 2020/05/16(土) 06:52

コメント返信：