造園に関するQ&A「一部の列を削除ですa2以降に名称、椿造園...」

HOME > 造園に関するQ&Aトップ > 質問「一部の列を削除ですa2以降に名称、椿造園...」

造園に関するQ&A「一部の列を削除ですa2以降に名称、椿造園...」

一部の列を削除ですa2以降に名称、椿造園木村克美 b2以降に月、8月 8月 c2以降に、5467、5458,5412以降続く 1行には説明分等が各セルにあります椿造園 8月 5467木村克美 8月 5458- ----------5412- ----------5431- ----------5434- ----------5435- ----------5441- ----------5451- ----------5453- ----------5455- ----------5456- ----------5458- ----------5459- ----------5461- ----------5467 a列の最終行を取得して、最終行より１つ下のｃ列から最終行セルの数値を削除したいのですが指導お願いします。
椿造園 8月 5467 木村克美 8月 5458 このような形にです

投稿日時：2009/11/25 10:04

【補足】Sub try()Range("C2", Cells(Rows.Count, 3).End(xlUp)).Offset(, -2).SpecialCells(xlCellTypeBlanks).EntireRow.DeleteEnd SubＣ２～Ｃ列の最終行までをもとめ、Ａ列にオフセットします。
その範囲内でＡ列の空白セル範囲を求め、その範囲を含む”行”を求めます。
その行に対してＤｅｌｅｔｅします。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－オートフィルタでＡ列を”空白以外”で抽出し、その結果を別シートにコピー・貼り付けして元のシートのデータを全部削除。
その後元のシートにデータを戻す。
などではダメですか。