重要なお知らせ

「教えて! goo」は2025年9月17日(水)をもちまして、サービスを終了いたします。詳細はこちら＞

電子書籍の厳選無料作品が豊富！

空白行を無視してコピーするマクロについて

解決済

  • 質問者：sgr3u
  • 質問日時：
  • 回答数：1件

下記のA列を参照してO列の最終行までコピーするマクロを組みました。
このコピーする際に入力されている行があればそのセルは無視（無効）として
最終行までコピーすることはできるのでしょうか。
分かる方がいたら教えてくださいませ(;_;)

LastRow = Cells(Rows.Count, "A").End(xlUp).Row
If LastRow < 8 Then Exit Sub
Range("O7:O" & LastRow).Value = Range("O7").Value

通報する

この質問への回答は締め切られました。

質問の本文を隠す

A 回答 (1件)

No.1ベストアンサー

  • 回答者： t_fumiaki
  • 回答日時：

最後の部分を以下すれば可能



Range("O7:O" & LastRow).SpecialCells(xlCellTypeBlanks).Value = Range("O7").Value
    • good
    • 2
    • 件
通報する
この回答へのお礼

そんな簡単に出来るものなのですね！
ありがとうございます☆

通報する
お礼日時：2017/10/05 17:12

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

ページトップページトップ

Q質問する（無料）

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

おすすめ情報